С помощью Паскаля; Дан двумерный массив(4 столбца, 3 строки), заполненный случайным образом. Вывести массив и найти: а)количество отрицательных элеметов в 3 строке; б)сумму элементов всего массива; в)минимальный элемент в 1 сто...
С помощью Паскаля;
Дан двумерный массив(4 столбца, 3 строки), заполненный случайным образом. Вывести массив и найти:
а)количество отрицательных элеметов в 3 строке;
б)сумму элементов всего массива;
в)минимальный элемент в 1 столбце; Желательно, на каждый пункт отдельную задачу;)
Гость
Ответ(ы) на вопрос:
Гостьconst n=3; m=4;
var a: array [1..n,1..m] of integer;
k,sum,min,i,j:integer;
begin
Randomize;
writeln('---A:---');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=Random(20)-10;
write(a[i,j]:6);
end;
writeln;
end;
// а
k:=0;
for j:=1 to m do
if a[3,j]<0 then k:=k+1;
writeln('k=',k);
// б
sum:=0;
for i:=1 to n do
for j:=1 to m do sum:=sum+a[i,j];
writeln('sum=',sum);
// в
min:=a[1,1];
for i:=2 to n do
if a[i,1]