Информатика! 100 быллов! Составить программу на языке Паскаль c=(a+b)/2+d

Question

Информатика: Информатика! 100 быллов! Составить программу на языке Паскаль c=(a+b)/2+d

dddddkkke · Accepted Answer

//pascal //1) var a: array[1..5, 1..8] of integer; i, j: byte; sumr, sumc: integer; begin randomize; writeln( исходный массив : 28); for i : = 1 to 5 do begin for j : = 1 to 8 do begin a[i, j] : = random(61)-30; write(a[i,j]: 5); if i = 3 then sumr : = sumr + a[i, j]; if j = 5 then sumc : = sumc + a[i, j]; end; writeln; end; writeln( сумма элементов 5 столбца = , sumc); writeln( сумма элементов 3 строки = , sumr); end.//2) var a: array[1..5, 1..8] of integer; i, j: byte; suma, sumb, countv, countg:...

MOGZ ответил