Program gt;
label 1;
var a:array[1..30]of integer;
i,min:integer;
begin
randomize;
min:=200;
1:
for i:=1 to 30 do
begin
a[i]:=random(101);
if(a[i]<min)and(a[i]>=20)then min:=a[i];
end;
if(min<>200)then begin
for i:=1 to 30 do
write(a[i],' ');
writeln;
writeln(min);
exit;
end;
if(min=200)then goto 1;
end.
Рисунок текстовая информация. А всё остальное образная
Program sadadasf;
var i,k: integer;
begin
k:=0;
For i:=1 to 50 do
If (i mod 5=0) or (i mod 7=0) then k:=k+i;
Writeln('Сумма этих чисел: ',k);
<span>end.</span>
Var n: integer;
<span>begin
</span><span> write('число: '); readln(n);
</span><span> repeat
</span><span> write(n mod 10);
</span><span> n:=n div 10;
</span><span> until n=0;
</span><span>end.
</span><span>
Ввод - вывод:
</span>число: 589
<span>985
</span>
1 а 2 б 3 ф 4 ф 5 г 6 а 7 а и в 8 а 9 в 10 не знаюю