Предмет: Информатика,
автор: godsuicidep2wc0r
ПАСКАЛЬ
составьте программу вычисления максимального вычисления в массиве A и его индексов
Ответы
Автор ответа:
1
Ответ:
Var i,max:integer;
A:array [1..10] of integer;
Begin
Max:=0;
For i:=1 to 10 do
Begin
Read(a[i]);
If a[i] > max then max:=a[i];
End;
Write(max);
End.
Интересные вопросы
Предмет: Биология,
автор: fgg90909
Предмет: Английский язык,
автор: andrijednak
Предмет: Математика,
автор: eva66666000
Предмет: География,
автор: Аня28464685
Предмет: Математика,
автор: ExaltoKasper