М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Результаты СОР по информатике 20 учащихся представлены в виде массива. Арман составил алгоритм для подсчета количества учащихся, получивших больше 14. а) Расположи команды алгоритма в правильном порядке.
б) Напиши, используя алгоритм, программу на Python


Результаты СОР по информатике 20 учащихся представлены в виде массива. Арман составил алгоритм для п

👇
Ответ:
vovastrebkov161
vovastrebkov161
24.08.2021

1. Присвоить ноль

2. Открыть цикел

3. Ввод

4. Сравнение

5. Вывод

#Скрипт

num = 0

for i in range(20):

nums = int(input("Введи чесло: ")

if nums > 14:

num += 1

print(num)

4,7(39 оценок)
Открыть все ответы
Ответ:
//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
4,8(60 оценок)
Ответ:
VikaSh86
VikaSh86
24.08.2021
//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
4,6(73 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ