Информатика! решить в паскале три : 1) дан двумерный массив, найти количество отрицательных элементов. 2) дан двумерный массив. заменить все элементы над главной диагональю на 100. 3) дан двумерный массив. поменять местами верхнюю половину строк с нижней.

101

454

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

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

Настя20050910

Информатика

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

Const n = 4; var a: array[1..n,1..n] of integer; i,j,k: integer; begin randomize; writeln('1)'); k: =0; for i: = 1 to n do begin for j: = 1 to n do begin a[i,j]: =random(21)-10; write(a[i,j]: 3,' '); if a[i,j] < 0 then k: =k+1; end; writeln end; writeln('k = ',k); writeln('2)'); for i: = 1 to n do begin for j: = 1 to n do begin if j > i then a[i,j]: =100; write(a[i,j]: 3,' ') end; writeln end; writeln('3)'); for i: = 1 to n div 2 do begin for j: = 1 to n do begin k: =a[i+n div 2,j]; a[i+n div 2,j]: =a[i,j]; a[i,j]: =k; end end; for i: = 1 to n do begin for j: = 1 to n do write(a[i,j]: 3,' '); writeln end; end. 1) 10 2 -9 4 -10 5 -5 -10 4 9 4 10 3 -9 10 -6 k = 6 2) 10 100 100 100 -10 5 100 100 4 9 4 100 3 -9 10 -6 3) 4 9 4 100 3 -9 10 -6 10 100 100 100 -10 5 100 100

nastich1

Информатика

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

#include < iostream> using std: : cout; using std: : endl; int main(){ int a[15] = { 2, 5, 4, 6, 8, 9, 3, 6, 1, 0, 0, 5, 6, 9, 8 }; int sum = 0; for(int i = 0; i < 15; i++) { if(a[i] % 4 == 0) { sum += a[i]; } cout < < a[i] < < ' '; } cout < < "\nsum = " < < sum < < endl; return 0; }