BluePink BluePink
XHost
Oferim servicii de instalare, configurare si monitorizare servere linux (router, firewall, dns, web, email, baze de date, aplicatii, server de backup, domain controller, share de retea) de la 50 eur / instalare. Pentru detalii accesati site-ul BluePink.
Prima Ferrari Adrese BMW Program
{Partea declarativa a programului}
program tema;
var   a:array[1..30] of integer;
        i,n,l,w,max,s:integer;

{Partea de instructiuni a programului}
begin
    write('Nr. parcelelor este: ');
    readln(n);
    s:=0;
    for i:=1 to n do
        begin
            write('Lungimea parcelei ',i,' : ');
            readln(l);
            write('Latimea parcelei ',i,' : ');
            readln(w);
            a[i]:=l*w;
            s:=s+a[i];
        end;
    max:=a[1];
    for i:=2 to n do
        if max<a[i] then max:=a[i];
    writeln('Suma ariilor parcelelor este de ',s,' mp.');
    writeln('Cea mai mare parcela are suprafata de ',max,' mp.');
    readln;
end.