1. Информатика
  2. Задано n чисел ( n =10).

Задано n чисел ( n< =10). определить сумму чисел , удовлетворяющих условию : модуль числа меньше его номера

laskovetsigor2 laskovetsigor2    2   30.07.2019 22:00    1

Ответы
Eva27092006 Eva27092006  28.09.2020 09:02
Var n, i, k, s: integer;
begin
  readln(n);
  for i:=1 to n do
  begin
    readln(k);
    if abs(k)>i then s:=s+k;
  end;
  writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
djezhik djezhik  06.10.2019 15:20
Используя метод половинного деления, определи имеет ли уравнение y=-4x2−11,8x+3 корень на промежутке [0, 0]....
Limon2601 Limon2601  06.10.2019 15:20
Для кодирования некоторого набора символов решили использовать неравномерный двоичный код, удовлетворяющий условию фано. известно, что для кодирования применили только трёхзначные...
sexmachina098 sexmachina098  06.10.2019 15:20
30 . pascalabc.netвсем известно, что в неделе 7 дней: понедельник (monday), вторник (tuesday), среда (wednesday), четверг (thursday), пятница (friday), суббота (saturday) и воскресенье...
marinalebedeva5 marinalebedeva5  09.04.2020 19:17
Зробити в Паскалі для обчислення площі всієї поверхні (Sp=a*a*6) та об’єму куба (V=a3). В тексті програми необхідно викликати 1-шу при натиснення клавіші «1», або 2-гу при натиснення...
ЕленаФроленкова ЕленаФроленкова  09.04.2020 19:17
Троллейбус, трогаясь с места, двигается с ускорением a=1,5м/с2. Какую скорость он приобретёт через время t? Какое расстояние он при этом пройдёт?...
AMINA2007133456 AMINA2007133456  09.04.2020 19:18
Определи размеры данной таблицы....
sadpepeee sadpepeee  08.06.2019 00:50
Решите уравнение 60(8) + х = 200(5). ответ запишите в шестеричной системе счисления....
Kot12321 Kot12321  12.02.2022 09:04
РЕШИТЕ! Задание №1 Пусть t = 219.6 Расположите в порядке убывания значения выражений t, round(t), trunc(t), frac(t)....
вова966 вова966  12.02.2022 09:04
Изучи предложенный программный код и определи возможную ошибку при вычислении арифметического выражения. a = int(input( Enter 1st number: )) b = int(input( Enter 2st number: )) s...
TheCool111 TheCool111  12.02.2022 09:05
Пользователь вводит с клавиатуры число. Компьютер загадывает число в диапазоне от 0 до 100. Отобразить на экране число пользователя и компьютера. Если число пользователя меньше числа...

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