bancuri, glume, imagini, video, fun, bancuri online, bancuri tari, imagini haioase, videoclipuri haioase, distractie online Pe HaiSaRadem.ro vei gasi bancuri, glume, imagini, video, fun, bancuri online, bancuri tari, imagini haioase, videoclipuri haioase, distractie online. Nu ne crede pe cuvant, intra pe HaiSaRadem.ro ca sa te convingi.
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.