Найти 15 первых натуральных чисел делящихся нацело на 19

@AnteX · Регистрация: 25.11.2011

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

помогите
1)
Найти 15первых натуральных чисел делящихся нацело на 19 и находящихся в интервале левая граница которого равна 100 (эту задачу нужно только с циклом repeat)

2) Определить:

Среднее арифметическое всех элементов массива!!!!

@Mr.Dek · 23.12.2011, 17:20

Сообщение от AnteX

2) Определить:
Среднее арифметическое всех элементов массива!!!!

Pascal

var
i,s,n: integer;
a: real;
m: array [1..1000] of integer;
begin
cls;
write('N=');
read(n);
for i:=1 to n do
begin
m[i]:=random(50)+6;
s:=s+m[i];
write(m[i]:3);
end;
writeln;
writeln('Среднее арифметическое=', s/n);
end.

@AnteX 0 / 0 / 0 Регистрация: 25.11.2011 Сообщений: 8
		1
	Найти 15 первых натуральных чисел делящихся нацело на 19 23.12.2011, 16:03. Показов 3655. Ответов 1 Метки нет (Все метки) помогите 1) Найти 15первых натуральных чисел делящихся нацело на 19 и находящихся в интервале левая граница которого равна 100 (эту задачу нужно только с циклом repeat) 2) Определить: Среднее арифметическое всех элементов массива!!!! 0

	23.12.2011, 17:20

Найти 15 первых натуральных чисел делящихся нацело на 19

Решение