1. Информатика
  2. Вводится 10 чисел. Подсчитать

Вводится 10 чисел. Подсчитать количество и сумму чисел, не равных технология 7 класс
PascalABC

ЖеняРай ЖеняРай    1   02.04.2020 22:43    0

Ответы
LollyMelor LollyMelor  12.10.2020 13:17

var x,s,i: integer;

begin

s:=0;

for i:=1 to 10 do begin

 read(x);

if (x<>5) then s:=s+x;

end;

write(s);

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
lanovoimaxoxpw94 lanovoimaxoxpw94  16.08.2019 04:00
Что было изобретено раньше компиляторы или интерпретаторы...
юлия1384 юлия1384  16.08.2019 04:00
Найдите четверостишие или стихотворение, в котором присутствуют все типы алгоритмов (линейный алгоритм, алгоритм с ветвлениями, алгоритм с повторениями)...
dashakalita dashakalita  16.08.2019 04:00
Составьте программу, которая формирует массив, содержащий 16 случайных вещественных чисел от -2 до 3, и подсчитывает сумму отрицательных чисел. вывод столбец с двумя десятичными...
lololoki03 lololoki03  16.08.2019 04:00
Переменные которые и уничтожаются в процессе выполнения программы...
Вилка000 Вилка000  16.08.2019 03:50
Укирилла перегорела теперь нужно купить и вкрутить новую лампочку. конечно, сам он этого делать не будет, ведь он топ-менеджер первого уровня! у кирилла есть два подчинённых менеджера...
pomoshvdorogep0arzo pomoshvdorogep0arzo  16.08.2019 03:50
Алгоритм приготовления бутерброда с маслом...
severin4568 severin4568  16.08.2019 03:50
1. напишите процедуру, которая выводит на экран фразу «я люблю паскаль» заданное в ее параметре количество раз. 2. напишите процедуру, которая выводит на экран решение линейного...
lyutaevayulya lyutaevayulya  16.08.2019 03:50
Написать программу дано 4х значное число вывести на экран монитора первую и третью цифры, произведениэ этих цифр...
6vyvu 6vyvu  16.08.2019 03:50
Придумайте/сочините приглашение на новый год. срошна...
Oufaa Oufaa  16.08.2019 03:50
Сколько раз выполняется цикл в фрагменте программы: a: =1; b: =1; while a+b 8 do begin a: =a+1; b: = b+2 end....

Популярные вопросы