Предмет: Информатика,
автор: Duisenbekovkopbolsyn
СРОЧНО!!!!! РАБОТА В ПАСКАЛЕ!!!!!!!!! ААААААААААААААААААААААА
Массив из 11 элементов задан на интервале [-10;12]. Вывести значение максимального элемента и его порядковый номер
fovfabomi:
элементы заданы рандомно или вводить с клавиатуры?
Ответы
Автор ответа:
0
var a: array [1..11] of integer;
i,max,j:integer;
begin
max:=0;
j:=1;
for i:=1 to 11 do a[i]:=random(-10,12);
max:=a[1];
for i:=1 to 11 do if a[i]>max then begin
max:=a[i];
j:=i;
end;
writeln('мaксимальный элемент массиа равен',max);
writeln('его номер равен',j)
end.
Похожие вопросы
Предмет: Русский язык,
автор: ivansky344
Предмет: География,
автор: radzhabovalian
Предмет: Алгебра,
автор: glancebrettil
Предмет: Математика,
автор: AlenA1288
Предмет: Математика,
автор: артур671