Ответ учителя по предмету Информатика
program exs;
var a: array [1..30] of integer;
i, min, indMin : integer;
begin
min:=40;
for i:= 1 to 30 do a[i]:=random(30);
for i:= 1 to 30 do begin
if a[i] < min then begin
min:=a[i];
indMin:=i;
end;
end;
write(a[i], ‘ ‘, indMin);
end.
Похожие вопросы от пользователей
You:hello,mfrin.welcome to our programme»Pl——- games!»
Martin:thanks.i am happy to be here.
you:what g———— do you like to ——— with your students?
martin: we like ————— p—— ball games and t—— games.
you:great! what ball games do you ————— to play?
martin:the girls like ———- play volleyball and basketball,the boys——football.
you:well.what about t—— games?
martin:my students like —— play chess and checkers, they like to do p——.fnd the girls like to s——— very much.