Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
happy01
[49]
3 года назад
6
Ввести с клавиатуры массив из 5 элементов , найти среднее арифметическое всех элементов масива. ABC Pascal. Через for,,repead
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
Роман Давлетов
3 года назад
0
0
//Pascal ABC.NET v3.1 сборка 1172
//For
Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
for i:=1 to 5 do
begin
readln(ar[i]);
r:=r+ar[i];
end;
r:=r/i;
writeln(r);
end.
//while
Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
while i<>5 do
begin
i:=i+1;
readln(ar[i]);
r:=r+ar[i];
end;
r:=r/i;
writeln(r);
end.
//repeat
Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
repeat
i:=i+1;
readln(ar[i]);
r:=r+ar[i];
until i=5;
r:=r/i;
writeln(r);
end.
Пример ввода:
1
2
1
2
1
Пример вывода:
1.4
Отправить
Читайте также
Какое расширение имеет имя файла, возникшего при создании ярлыка? В качестве ответа запишите три строчных латинских буквы.
advanced-ua [14]
.lnk вот это расширение
0
0
3 года назад
Прочитать ещё 2 ответа
Напишите программу которая считает сумму положительных из трех веденный чисел Как это записать в программе паскаль?
UoiUo [14]
var a,b,c,s: integer;
0
0
4 года назад
Помогите! Это срочно! Даю 50 баллов.
Федотики [252]
1Алексей
2Евгений
3Михаил
4Борис
5Олег
0
0
3 года назад
Чему будет равно значение переменной «a» после выполнения этого цикла? i = 2; a = 12; while ( i < 4 ) { a += i; i++; }
Фоукс [306]
<span>переменная </span><span>«a» после выполнения этого цикла будет равна</span> 17
0
0
4 года назад
1)Дано число n . вывести 2 в степени 52)Найти сумму натуральных чисел от 35 до 132
Alj
Var n:integer;
begin
readln(n);
writeln(power(2,n));
<span>end.
var i,s:integer;
begin
for i:=35 to 132 do
s+=i;
writeln(s);
<span>end.</span></span>
0
0
3 года назад
Смотрите также:
Определите следующие понятия: имя поля, значение поля, тип поля. Какие бывают типы полей? Какие величины определяет каждый из ти
10
·
1 ответ
Помогите если следитеНадо придумать схему,передачи информации,по схеме,надо 4 схемы!Источник -> Приёмник
14
·
1 ответ
Квадрат, круг, ромб и треугольник вырезаны из белой, синей,красной и зеленой бумаги.Как решить параграф 1.2?
10
·
1 ответ
Составить алгоритм и написать программу: Мальчик , продающий на улице газеты, зарабатывает F рублей на продаже каждой из первых
6
·
1 ответ
Как называется нападение вирусов?
6
·
2 ответа
Предприятие выпускает продукцию различных наименований. Каждое изделие может окрашиваться в один из 16 цветов. Код готового изде
5
·
1 ответ
Какие функции у клавиш:enter,esc,shift,delete,backspase,insert
7
·
1 ответ
Постройте логические схемы по формулам: F=(A&B&C)
5
·
1 ответ
Запишите десятичное число 61 в двоичной системе счисления
5
·
1 ответ
Написать операторы, которые посчитают и перемножат числа, кратные 5, на интервале от 73 до 299
14
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!