const
ns=20;
var a:array[1..ns,1..ns] of integer;
m,n,i,j:byte;
min,sum:integer;
begin
randomize;
readln(m,n);
writeln('Исходная матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:3);
end;
writeln;
end;
writeln('Минимальные элементы столбцов:');
sum:=0;
for j:=1 to n do
begin
min:=a[1,j];
for i:=1 to m do
if a[i,j]<min then
min:=a[i,j];
sum:=sum+min;
writeln(j,' - ',min:2);
end;
writeln('Сумма минимальных элементов: ',sum);
end.
1) Паскаль
2) Макет и карта
3) <span>Упрощённое подобие этого объекта, которое воспроизводит его форму и размеры в нужном масштабе</span>
1 байт=8 бит
1 Кбайт=210 байт=1024 байт
1 Мбайт=220 байт=1024 Кбайт
1 Гбайт=230 байт=1024 Мбайт
<span>Program flint</span>
<span>var </span>
<span>S, i: integer; </span>
<span>begin </span>
<span>writeln('Введите S'); </span>
<span>readln(S); </span>
<span>for i:=1 to 10 do </span>
<span>s:=s*1,03/0,98; </span>
<span>writeln('Реальная сумма через 10 лет: '); </span>
<span>writeln(S); </span>
<span>readln(); </span>
<span>end.</span>