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