ПОМОГИТЕ С ПОЖАЛУЙСТА ИНФОРМАТИКОЙ
Написать программы ПАСКАЛЬ:
1) которая сформирует массив из 20 нечетных чисел и подсчитает сумму и среднее арифметическое этих чисел.
2) которая сформирует массив из 15 случайных чисел от 35 до 75 включительно, найдет количество элементов, значение которых лежит от 50 до 60.
Написать программы ПАСКАЛЬ:
1) которая сформирует массив из 20 нечетных чисел и подсчитает сумму и среднее арифметическое этих чисел.
2) которая сформирует массив из 15 случайных чисел от 35 до 75 включительно, найдет количество элементов, значение которых лежит от 50 до 60.
Answers & Comments
A:array[1..20] of integer;
i,S:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to 20 do
Begin
A[i]:=i*2-1;
Write(A[i],' ');
S:=S+A[i]
End;
WriteLn;
WriteLn('S = ',S);
WriteLn('Sr = ',S/20);
End.
Var A:array[1..15] of integer;
i,k:integer;
Begin
Randomize;
k:=0;
Write('Исходный массив: ');
For i:= 1 to 15 do
Begin
A[i]:=random(41)+35;
Write(A[i],' ');
if (A[i]>=50)and(A[i]<=60) then k:=k+1
End;
WriteLn;
WriteLn('k = ',k)
End.