Question

Напишите пример задачи на двумерный массив из реальной жизни (с решением)

Answer 1

Огородники Ивановы засаживают свой огород только по клумбам главной диагонали. Сам огород представляет собой квадрат со стороной в 5 клумб. Найдите сколько  арбузов вырастет на главной диагонали(число арбузов на каждой клумбе задаётся случайно).
var ar:array[1..5,1..5] of integer;
a,s:integer;
begin
randomize;
writeln('Арбузы погрядочно:');
for a:=1 to 5 do
begin;
ar[a,a]:=random(30);
write(ar[a,a],',');
s:=s+ar[a,a];
end;
writeln;
writeln('Количество арбузов:',s);
end.