Дан массив A(4). Найти максимальный элемент массива и его порядковый номер.На паскале.
Дан массив A(4). Найти максимальный элемент массива и его порядковый номер.
На паскале.
Гость
Ответ(ы) на вопрос:
Гостьconst n=4;
var A:array [1..n] of real;
i,max,j:integer;
maxs:real;
begin
for i:= 1 to n do
readln(A[i]);
for i:= 1 to n do
for j:= 1 to n do
if A[i]>A[j] then
begin
maxs:=A[i];
max:=i;
end;
writeln(maxs,' ',max)
end.
Не нашли ответ?
Похожие вопросы