Заполнить двухмерный массив с(5, 6) целыми случайными числами, значения которых находятся в интервале от -8 до +9, выведет на экран массив в виде таблицы, найдёт сумму всех отрицательных элементов массива и выведет результат на экран
1) не двухмерный, а двумерный 2) на каком языке писать?
Latsukirina
29.09.2022
Const n=10; var a,b,c: array[1..n] of real; i: integer; begin writeln('введите элементы массива'); for i: =1 to n do read(a[i]); writeln(' a b c'); for i: =1 to n do begin b[i]: =a[n-i+1]; c[i]: =(a[i]+b[i])/2; writeln(a[i]: 7: 3,b[i]: 7: 3,c[i]: 7: 3) end end. тестовое решение: введите элементы массива 1.26 -0.3 6.18 7 -7.04 -9.9 -1.7 -2.955 1.75 0.245 a b c 1.260 0.245 0.753 -0.300 1.750 0.725 6.180 -2.955 1.613 7.000 -1.700 2.650 -7.040 -9.900 -8.470 -9.900 -7.040 -8.470 -1.700 7.000 2.650 -2.955 6.180 1.613 1.750 -0.300 0.725 0.245 1.260 0.753 блок-схема во вложении
viktort889841
29.09.2022
Const n = 3; var a : array [1..n, 1..n] of char; i,j : integer; b : char; begin //считывание массива readln (b); for i : = 1 to n do for j : = 1 to n do a[i,j] : = b; //вывод массива for i : = 1 to n do begin for j : = 1 to n do write (a[i,j],' '); writeln(); end; end.