Дан массив а 5. Случайные числа от 0 до 30. Отыскать

Дан массив а 5. Случайные числа от 0 до 30. Отыскать сумму и среднее арифметическое всех чисел.

Задать свой вопрос
1 ответ
Program z1;

var a:array [1..5] of integer;
s, k, n : integer;
begin
for I:=1 to 5 do begin
readln ( a[I]);
s:=s+a[I];
k:=k+1;
end;
n:=s/k;
writeln (s, k);
end.
полагаюсь помог
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт