Огородники Ивановы засаживают свой огород только по клумбам главной диагонали. Сам огород представляет собой квадрат со стороной в 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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
