Заполнить массив из 10 элементов случайными числами в интервале [-10,10] и подсчитать сумму всех отрицательных элементов.
190
389
Ответы на вопрос:
Var a: array [1..10] of integer; i,s: integer; begin randomize; s: =0; for i: =1 to 10 do begin a[i]: =random(20)-10; write (a[i],' '); if a[i] < 0 then s: =s+a[i]; end; writeln; writeln ('summa: ',s); readln; end.
ну наверное потому-что у неё нету условий и т.д (к примеру if)? линейная программа - это, наверное, та программа, у которой только прямые действия (вычисления). ну где то так, хз как дальше сказать
Популярно: Информатика
-
Daffynsky0120.04.2020 02:31
-
vysochina6716.06.2023 00:57
-
Рыжик15128.10.2020 22:19
-
goodblood19707.07.2021 11:38
-
aliya11100015.04.2023 08:41
-
Kevand20.11.2021 04:45
-
СпудиМэн24.06.2021 16:12
-
про73930.08.2022 15:03
-
abeldinova8506.07.2020 21:03
-
guest24611.02.2023 20:42