Написать программу на turbopascal. дано натуpальное n. записать в файл целые числа , где bi=i2-2i+1 при i=1,. найти сумму всех четных чисел в файле.

107

237

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

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

shamahuligam007

Информатика

4,5(74 оценок)

Program aaa; var y: array[1..1000,1..1000] of longint; n,m,i,j,count5,countm9,s5,sm9: longint; begin writeln('введите размерность массива'); read(n,m); writeln('введите массив'); for i: =1 to n do for j: =1 to m do read(y[i,j]); count5: =0; countm9: =0; s5: =0; sm9: =0; for i: =1 to n do for j: =1 to m do begin if y[i,j]> 5 then begin inc(count5); s5: =s5+y[i,j] end; if y[i,j]< -9 then begin inc(countm9); sm9: =sm9+y[i,j] end; end; writeln('всего элементов больше 5: ',count5,' ,сумма этих элементов равна: ',s5); writeln('всего элементов меньше -9: ',countm9,' ,сумма этих элементов равна: ',sm9) end.