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.
Ответ:
С паскаля лучше начинать свой путь в программировании - он научит тебя алгоритмам, познакомит с массивами, циклами и другими операторами. Но как сам по себе язык он не используется широко. Тот же питон является более простым и имеет большой потенциал и множество библиотек, его часто используют для разработки Backend'а. Так что стоит выучить основы паскаля, объекты в языках программирования, и потом перейти на другой язык (питон например)
Const n=15;
var a: array[1..n] of integer;
i:integer;
begin
for i:=1 to n do begin a[i]:=random(10); write(a[i], ' '); end;
writeln;
for i:=1 to n do if a[i]=4 then write('A[',i,']', ' ');
<span>end.</span>
Ответ Б) 2,1,4,3.
Сначала были ламповые, затем когда ламповыми ЭВМ рынок был переполнен стали производиться транзисторные ЭВМ, затем были ЭВМ БИС, и потом ЭВМ СБИС.