Ввести файл . найти среднее арифметическое среди значений элементов файла, принадлежащих интервалу [-5; 5]. если среднее положительно, записать его на последнее место в файле. на печать вывести файл

144

362

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

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

misha223414

Информатика

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

(-5-4-3-2-1+0+1+2+3+4+5)/11=0

AFMaster

Информатика

4,7(50 оценок)

Program obnulenie; var a: array[1..100,1..100] of integer; i,j,n: integer; begin writeln('введите размер квадратной матрицы: '); readln(n); writeln('введите матрицу: '); for i: =1 to n do for j: =1 to n do begin read(a[i,j]); if j> i then a[i,j]: =0; end; writeln('измененная матрица: '); for i: =1 to n do begin for j: =1 to n do write(a[i,j],' '); writeln; end; end.