Для заданного массива

@Юлляха · Регистрация: 07.06.2011

Для заданного массива вычислить и напечатать величины A и n, где A - наибольший элемент массива, n – его порядковый номер.

@Viktor-z · 17.06.2011, 06:24

Pascal

A:=L[1];
for i:=1 to x do
begin
if (L[i]>A) then
begin
max:=L[i];
if (A<>L[1]) then n:=i else n:=1;
end;
end;

@Юлляха 0 / 0 / 0 Регистрация: 07.06.2011 Сообщений: 36
		1
	Для заданного массива 17.06.2011, 05:02. Показов 1337. Ответов 1 Метки нет (Все метки) Для заданного массива вычислить и напечатать величины A и n, где A - наибольший элемент массива, n – его порядковый номер. 0

	17.06.2011, 06:24

Решение