В произвольно заданном одномерном массиве (случайные значения из отрезка -5 до 15) из 12 элементов, определить максимальный элемент и его номер.
В произвольно заданном одномерном массиве (случайные значения из отрезка -5 до 15) из 12 элементов, определить максимальный элемент и его номер.
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
const n=12;
var a:array[1..n] of integer;
i,k,max:integer;
begin
randomize;
max:=-5;
for i:=1 to n do
begin
a[i]:=random(20)-5;
writeln(a[i]);
if a[i]>max then
begin
k:=i;
max:=a[i];
end;
end;
writeln;
writeln(max);
writeln(k);
end.
Гостьconst
n = 12;
var
a: array[1..n] of integer;
i, max: integer;
begin
max := 1;
for i := 1 to n do begin
a[i] := random(20) - 5;
write(a[i]:3);
if a[i] > a[max] then
max := i;
end;
writeln;
writeln('a[', max, '] = ', a[max]);
end.
Не нашли ответ?
Похожие вопросы