Информатика, вопрос задал Хриссс , 9 лет назад

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

Приложения:

Ответы на вопрос

Ответил igor9997799
0
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.
Ответил Хриссс
0
Спасибо тебе огромное,добрый человек!
Новые вопросы