Составить программу, которая вводит с клавиатуры массив из 5 частей, и

Составить программку, которая вводит с клавиатуры массив из 5 частей, и находит среднее арифметическое этих чисел.

Задать свой вопрос
Валерий Струков
На паскале?
Torbukov Denis
Да
Арсений Вансовский
В одномерном массиве найти число кратное 7, если таковы есть, вывести на экран
Галка Даушвили
помогите пожалуйста
1 ответ
Var a:array [1..5] of integer; 
sum,k, i:integer; 
begin 
sum:=0; 
k:=0; 
writeln('Введите 5 частей массива'); 
for i:=1 to 5 do read(a[i]); 
for i:=1 to 5 do begin 
sum:=sum+a[i]; 
k:=k+1; 
end; 
writeln('Среднее арифметическое всех элементо массива = ', sum/k); 
end. 
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт