Найти наибольший элемент массива и заменить его значением произведением всех элементов

15.05.2011, 03:00. **Показов** 1523. **Ответов** 1

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

в масиве М, состоящего из 30 элементов найти наибольший элемент и заменить его значением произведением всех элементов, предшествующих ему

@datrav · 15.05.2011, 03:21

Pascal

program multi;
var
mas:array[1..30]of integer;
i,max,nmax,mul:integer;
begin
for i:=1 to 30 do
mas[i]:=random(10);
 
nmax:=1;max:=mas[1];mul:=1;
for i:=1 to 30 do
 if mas[i]>nmax then begin max:=mas[i];
                           nmax:=i;
                     end;
for i:=1 to nmax do mul:=mul*mas[i];
 
for i:=1 to 30 do
write(mas[i]);
writeln;
writeln(mul);
readln;
 
end.

Попробуй.

vint82
		1
	Найти наибольший элемент массива и заменить его значением произведением всех элементов 15.05.2011, 03:00. Показов 1523. Ответов 1 Метки нет (Все метки) в масиве М, состоящего из 30 элементов найти наибольший элемент и заменить его значением произведением всех элементов, предшествующих ему

	15.05.2011, 03:21

Опции темы

Найти наибольший элемент массива и заменить его значением произведением всех элементов

Решение