Тебе из будет трудно искать на рабочем столе или в память компьютера, также они будут длинные и название будет показываться не полностью
Uses crt;
const n=5;
m=5;
var a:array[1..n,1..m] of integer;
i,b,j,k:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(40)-20;
write(a[i,j]:3);
end;
writeln;
k:=1;
b:=20;
repeat
for i:=k to k do
for j:=1 to m do
if (a[i,j]<b) then b:=a[i,j];
writeln(b);
inc(k);
b:=20;
until k>n;
end.
Ответ с точки зрения информатики:
Ветер - Выполнитель, выполняет действия : ГУЛЯЕТ(ДУЕТ), ПОДГОНЯЕТ(ДВИЖЕТ)
МОРЕ, КОРАБЛИК - объекты над которыми одновременно выполняет действие Ветер
Ответ:
Объяснение:
и здесь в результате будет ошибка в строке
Writeln (A.B)
нужно перечислить переменные через запятую и в конце точку с запятой: Writeln (A,B);
1) (Если оценки ≤ 5)
var
count, a, i : integer;
begin
count := 0;
for i := 1 to 20 do
begin
read (a);
count := count + a div 5;
end;
writeln (count);
end;
2)
var
c : integer;
begin
c := 200;
while c mod 17 <> 0 do c := c + 1;
writeln (c);
end;