Найти максимальный элемент массива и его номер

@Минимал · Регистрация: 13.11.2012

Author24 — интернет-сервис помощи студентам

Дан массив вещественных чисел. Найти максимальный элемент массива и его номер.

Помогите пожалуйста.

@domovou2.0 · 13.11.2012, 21:28

Pascal

var a:array[1..100] of real;
    i,imax,n:integer;
    max:real;
begin
write('N= ');readln(n);
for i:=1 to n do
    read(a[i]);
writeln('-------------');
imax:=0; max:=a[1];
for i:=1 to n do
    if a[i]>max then begin max:=a[i];imax:=i; end;
writeln('max = ',a[imax],' nomer = ',imax);
readln;
end.

@Минимал 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 4
		1
	Найти максимальный элемент массива и его номер 13.11.2012, 20:39. Показов 11194. Ответов 1 Метки нет (Все метки) Дан массив вещественных чисел. Найти максимальный элемент массива и его номер. Помогите пожалуйста. 0

	13.11.2012, 21:28

Найти максимальный элемент массива и его номер

Решение