Формирование нового массива по заданному условию

04.04.2012, 17:40. **Показов** 1282. **Ответов** 1

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

Переписать элементы целочисленного массива М (М1, М2, ... М20) кратные 5 в массив М5.
Если такие элементы отсутствуют, то выдать соответствующее сообщение.
Для массива М5 определить среднее арифметическое значение.

@Andretti · 06.04.2012, 02:19

Delphi

....
schet:=1;
for i:=1 to 20 do
begin
if (M[i] mod 5)=0 then m5[schet]:=m[i];
inc(schet);
end;
if schet=1 then showmessage ('В массиве М чисел кратных 5 нет!') else
begin
sredn:=0;
for i:=1 to schet-1 do sredn:=sredn+m5[i];
showmessage ('Среднее арифметическое элементов массива М5 = '+intTofloat(sredn/schet));
end;
....

Beck5
		1
	Формирование нового массива по заданному условию 04.04.2012, 17:40. Показов 1282. Ответов 1 Метки нет (Все метки) Переписать элементы целочисленного массива М (М1, М2, ... М20) кратные 5 в массив М5. Если такие элементы отсутствуют, то выдать соответствующее сообщение. Для массива М5 определить среднее арифметическое значение.

	06.04.2012, 02:19

Формирование нового массива по заданному условию

Решение