3 задачи,Информатика 9 класс

+ 0 -

Svetlanka135

18 янв. 2015 г., 2:44:10 (9 лет назад)

2 задание

Program MyProg;
var M: array[1..100]of integer;
i:integer;
 ms:real;
begin
{Заполним массив случайными числами}
for i:=1 to 100 do
begin
M[i]:=random(-20,20);
end;
Writeln('Положительные элементы массива');
{Цикл Суммирование положительных элементов массива}
ms:=0;
for i:=1 to 100 do
begin
{Поиск наибольшего элемента массива}
if M[i]>0 then
begin 
{Находим сумму положительных массивов}
ms:=ms+M[i];
Writeln(M[i]);
end;
end;
{Вычисление среднего}
ms:=ms/i;
writeln('Среднее арифмитическое массива');
Writeln(ms);
{Ожидание нажатие клавиши}
readln();
end.