Предмет: Информатика,
автор: Хриссс
Напишите пожалуйста программу на паскале :с
Приложения:
Ответы
Автор ответа:
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.
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
Спасибо тебе огромное,добрый человек!
Похожие вопросы
Предмет: Биология,
автор: yannalutsiv
Предмет: Математика,
автор: Аноним
Предмет: Қазақ тiлi,
автор: auvazovarailya27
Предмет: География,
автор: anar98serik