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.
Answers & Comments
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.