написать программу, которая запрашивает числа до тех пор,пока не будет введен 0. Язык Паскаль. (Можно всю задачу? Условие, тел цикла и т.д.)

100

412

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

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

Angelina5353

Информатика

4,4(32 оценок)

Const m=5; n=7; var a: array[1..m,1..n] of integer; i,j,amax: integer; p: real; begin randomize; writeln('исходный массивэ'); for i: =1 to m do begin for j: =1 to n do begin a[i,j]: =random(90)+10; write(a[i,j]: 3) end; writeln end; { 1} amax: =a[1,1]; for i: =1 to m do for j: =1 to n do if a[i,j]> amax then amax: =a[i,j]; writeln('максимальный элемент равен ',amax); { 2} p: =1; for i: =1 to m do for j: =1 to n do if a[i,j] mod 2=0 then p: =p*a[i,j]; writeln('произведение четных элементов равно ',p); end. пример работы исходный массивэ 94 20 49 80 70 55 40 62 74 71 51 88 10 76 68 11 11 74 96 50 69 98 34 25 93 52 53 61 68 85 35 15 77 78 97 максимальный элемент равен 98 произведение четных элементов равно 2.86826492979212e+33