Myuonner 31 октября 2019 в 09:25

Напишите пожалуйста программу на паскале :с

Var n:integer;
begin
 readln(n);
 var ar:=readarrinteger(n);
 for var i:=0 to n-1 do if (ar[i]lt;=437)
 then begin write(Crash ,i+1); exit; end;
 write(No crash);
end.
Для комментирования необходимо зарегистрироваться на сайте