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.
3 задание
Program MyProg;
var M: array[1..10]of integer;
i,max:integer;
begin
{Цикл для заполнение массива}
for i:=1 to 10 do
begin
{Заполним массив случайными числами в интервале -30 +30}
M[i]:= random(-30,30);
{Выводим массив}
Writeln(M[i]);
end;
{Цикл для поиска мак. значение массива}
max:=M[1];
for i:=2 to 10 do
begin
{Поиск макс. знач.}
if M[i]> max then
max:=M[i];
end;
Writeln();
write('Максимальное значение массива равно ',max);
readln();
end.