Айжан - 8 «А»сынып оқушысы. Ол үй тапсырмасын ертең 11 қыркүйекке дейін тапсыруы керек, бірақ ол қателесіп, - id2043368220210228 от КотиКомпотик 28.02.2021 22:53

Question

Информатика: Айжан - 8 «А»сынып оқушысы. Ол үй тапсырмасын ертең 11 қыркүйекке дейін тапсыруы керек, бірақ ол қателесіп, kundelik.kz сайтындағы кестені шатастырады да, 12 қыркүйектегі үй тапсырмасын орындайды.11 қыркүйек күні сабаққа дайын болмай, 12 қыркүйек күнінің үй тапсырмасын орындады. Төменде ақпараттың қасиеттері (құндылық, дәлдік, өзектілік және сенімділік) мен мысалдарды сәйкестендір. Сәйкестендіру саны: 4 Құндылық Айжан: «Мен кестені дұрыс қарамағандықтан, ертеңгі емес бірсүгінгі үй тапсырмаларын

КотиКомпотик · Accepted Answer

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

MOGZ ответил