Язык Паскаль . Создать числовой массив A[1..N] . Значение N вводится с клавиатуры . Все отрицательные элементы устранить , а так же определить среднее арифметическое всех элементов . Результат вывести на экран .
Var A: Array of Integer;
N: Integer;
i: Integer;
sum: Integer;
Begin
Randomize;
Write(N = );
ReadLn(N);
SetLength(A, N + 1);
WriteLn(Массив:);
For i := 1 To N Do
Begin
A[i] := Random(50) - 25;
Write(A[i] + );
End;
WriteLn;
WriteLn(Без отрицательных:);
For i := 1 To N Do Begin
If A[i] >= 0 Then
Write(A[i] + );
End;
sum := 0;
WriteLn;
WriteLn(Среднее арифметическое:);
For i := 1 To N Do Begin
sum := sum + A[i];
End;
WriteLn(sum / N);
End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
