Super-masini

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

{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.