Ввести с клавиатуры n чисел - Помощь студентам

Arinaeros · 01.04.2023, 18:21

С помощью цикла с параметром for ввести с клавиатуры N чисел. Найти сумму тех из них, которые не принадлежат интервалу (2; 9)

BDA · 01.04.2023, 19:01

Код:

for i := 1 to N do
begin
  readln(a);
  if (a <= 2) or (a >= 9) then
    inc(s, a);
end;

Arinaeros · 01.04.2023, 19:11

благодарю!

01.04.2023, 18:21	#1
Arinaeros Пользователь Регистрация: 05.03.2023 Сообщений: 14	Ввести с клавиатуры n чисел С помощью цикла с параметром for ввести с клавиатуры N чисел. Найти сумму тех из них, которые не принадлежат интервалу (2; 9)

01.04.2023, 19:01	#2
BDA МегаМодератор СуперМодератор Регистрация: 09.11.2010 Сообщений: 7,289	Код: `for i := 1 to N do begin readln(a); if (a <= 2) or (a >= 9) then inc(s, a); end;` Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Программа на языке Ассемблер, которая позволяет ввести с клавиатуры массив из N целых чисел, найти и вывести на экран те элементы массива, которые одновременно отрицательны и нечетны	Айтишник228	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	20	30.12.2019 00:49
Ассемблер. Ввести с клавиатуры массив из 7 целых чисел, найти и вывести на эк- ран сумму тех элементов массива, которые при делении на 5 дают в остатке 1 или 3	kosplay321	Помощь студентам	5	11.01.2018 20:53
Программа НА С++ Ввести с клавиатуры массив целых чисел. Вывести на экран исходный массив и количество позитивных элементов	Andry95	Помощь студентам	3	18.03.2016 11:18
Ввести с клавиатуры n чисел. Определить произведение тех из них, которые являются положительными.	kandrash	C# (си шарп)	4	28.11.2012 16:33

01.04.2023, 19:11	#3
Arinaeros Пользователь Регистрация: 05.03.2023 Сообщений: 14	благодарю!