Склавиатуры вводятя числа, пока не будет введено делящееся на 5, посчитать сумму тех из них, которые больше 10

279

500

Посмотреть ответы 1

Ответы на вопрос:

cefevupi

Информатика

4,6(26 оценок)

Const n = 3; m = 6; var a: array[1..n,1..m] of integer; i,j,imin,jmin,z: integer; begin randomize; writeln('исходный массив: '); imin: =1; jmin: =1; for i: = 1 to n do begin for j: = 1 to m do begin a[i,j]: =random(21)-10; write(a[i,j],' '); if a[imin,jmin] > a[i,j] then begin imin: =i; jmin: =j end end; writeln; end; writeln; writeln('min(a) = ',a[imin,jmin],'[',imin,',',jmin,']'); writeln; write('z = '); readln(z); writeln; if a[imin,jmin] > z then writeln('превышает.') else writeln('не превышает.') end.