Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Огородники Ивановы засаживают свой огород только по клумбам главной диагонали. Сам огород представляет собой квадрат со стороной в 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.