Войти Регистрация Спроси ai-bota

Запишите единичные имена мореплаватель общее имя
единичное...
ученый общее имя
единичное...

Показать ответ

Ответ:

asdffhcjbh

01.10.2021 21:55

//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

0,0(0 оценок)

Ответ:

запахи

01.10.2021 21:55

//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

0,0(0 оценок)

Популярные вопросы: Информатика

karyakinayulya

20.09.2022 21:05

Найти среднее арифметическое элементов последовательности превосходящих число а массив задан датчиком натуральных чисел на интервале [-45 , 35] размер произвольный...

ерен1

31.07.2020 09:57

1. составить программу, которая запрашивает у пользователя два числа (m, n), находит их сумму (s) и произведение (p). сравнивает значения суммы и произведения и выводит сообщение...

polinavak05

31.03.2023 02:00

Предположите, как в будущем будет использоваться компьютерная трёхмерная графика. подробно в ответе опишите будущую область её применения и примеры.. ))...

КаролинаКим

29.05.2020 16:52

Составить программу в паскале даны действительные положительные числа x,y, z. выяснить существует ли треугольник с данными сторонами...

Morenova123456

05.11.2022 15:32

Перед вами фрагмент программы. a := ?; b := ?; if (a 4) or (b 10) then write(1) else write(2); Для каких начальных значений переменных a и b программа напечатает число 1? Выберите...

ВероникаФардзинова

15.10.2020 01:50

6 класс. Суммативное оценивание за раздел: «Планеты и спутники». 4 четверть...

цццрпппр1

21.05.2023 22:30

Якими можна включити/виключити перемикач і прапорець...

kris7510

28.05.2023 04:31

Створіть новий файл Python, та нове вікно. Створіть подію “натискання на клавішу на клавіатурі” (KeyPress), яка встановить розміри вікна 500х600 пікселів, сірий колір фону і змінить...

LuzuVloks

12.10.2022 00:28

учительница дала задание на кумире. Я ее вроде решил, но она мне сказала, что неверно. Я не понял, что она от меня так и хочет решить задачу и если возможно указать ошибку!...

AндрeйTh

27.02.2021 23:11

НАПИСАТЬ КОД НА С . Задан целочисленный массив Х из 20 элементов. Получить массив Y, в который переписать те положительные элементы массива Х, которые расположены между двумя отрицательными....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку