Напишите пожалуйста программу на паскале :с
Напишите пожалуйста программу на паскале :с
Гость
Ответ(ы) на вопрос:
Гостьvar n:integer;
begin
readln(n);
var ar:=readarrinteger(n);
for var i:=0 to n-1 do if (ar[i]<=437)
then begin write('Crash ',i+1); exit; end;
write('No crash');
end.
Не нашли ответ?
Похожие вопросы