Const n=5; m=6;
var x:array[1..n,1..m] of integer;
k:array[1..m] of integer;
i,j,k0:integer;
begin
Randomize;
For i:=1 to n do begin
for j:=1 to m do begin
x[i,j]:=Random(20)-10;
write(x[i,j]:4);
end;
writeln;
end;
for j:=1 to m do begin
k0:=0;
for i:=1 to n do if x[i,j]<0 then k0:=k0+1;
k[j]:=k0;
end;
writeln('Количество отрицательных элементов в столбцах:');
for j:=1 to m do write(k[j]:4);
writeln;
<span>end.</span>
<span>управлять компьютером можно, выбирая нужную команду из заранее заготовленных вариантов - это </span>Командная сторка
<span>Объект, который указывает на текущее место в документе, называется курсор.</span>
Вероятность, того, что достанут белый шар= 40/50= 4/5= 4:5
Вероятность, того, что достанут чёрный шар= 10/50= 1:5
Ответ:
Объяснение:
if mas[a]<=mas[min] then min:=a;
if mas[a]>=mas[max] then max:=a;
тут идет сравнение мас в номере ячейки А с массивом в номере ячейки min , если mas [ячейка а ] меньше mas[min] то их индексы меняется местами
if (a<>min)and(a<>max) then writeln (mas[a]);
Если индексы а не равен мин И индекс а не равен макс , то вывод на экран мас[а]