Регистрация
clon255
20.03.2021 19:32
Информатика
Есть ответ 👍

Водномерном массиве, состоящем из n целых элементов, вычислить: сумму модулей элементов массива, меньших числа x . паскаль

261
323
Посмотреть ответы 2

Ответы на вопрос:

Andreyко
Andreyко
4,7(6 оценок)
Const   n = 15; var   a: array[1..n] of integer;   i, s, x: integer; begin   writeln('введите значение х');   readln(x);   randomize;   for i : = 1 to n do       a[i] : = random(100) - 50;   // случайные числа в интервале [-50..50]   s : = 0;   for i : = 1 to n do       if (a[i]) < x then           s : = s + abs(a[i]);   writeln('исходный массив');   for i : = 1 to n do       write(a[i]: 4);   writeln;   writeln('искомая сумма: ', s: 3) end. контрольный пример: введите значение х 5 исходный массив   17 -11    4  35 -13 -47    3  25 -50    4  28  33  -6  49 -48 искомая сумма: 186
gopina04vika
gopina04vika
4,5(78 оценок)

var a, i, o: integer;

begin

readln(a);

for i: =100 to 999 do begin

  if i div 100 = a then  

  o: =o+1;

  if (i div div 100) = a then  

  o: =o+1;

  if i - ((i div   10)*10) = a then  

  o: =o+1;

end;

writeln(o);

end.

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