Предмет: Информатика,
автор: Informat1
В произвольно заданном одномерном массиве (случайные значения из отрезка -5 до 15) из 12 элементов, определить максимальный элемент и его номер.
Ответы
Автор ответа:
0
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,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.
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Кыргыз тили,
автор: komnotaodin
Предмет: Математика,
автор: asylbekovaanel86
Предмет: Математика,
автор: sofiadukhanina05
Предмет: Алгебра,
автор: deleted824590