Составить программу нахождения максимального элемента массива А[1..7]
Составить программу нахождения максимального элемента массива А[1..7]
Гость
Ответ(ы) на вопрос:
Гостьvar A:array[1..7] of integer;
res,i,c:integer;
begin
res:=0;
writeln('Ведите массив') ;
for i:=1 to 7 doreadln(A[i]);
for i:=1 to 7 doif res<=A[i] then
begin res:=A[i]; c:=i;
end;
writeln('Максимальный элемент массива:',c,' его значение:',res);
readln;
end.
Не нашли ответ?
Похожие вопросы