Массив B(8) состоит из целых чисел. Найти количество положительных элементов и их произведение.
139
401
Ответы на вопрос:
var a,b,c: integer;
begin
randomize;
a: =random(60)-20;
b: =random(60)-20;
c: =random(60)-20;
write(a,' ',b,' ',c);
readln;
end;
Популярно: Информатика
-
UGvu18.08.2022 13:36
-
hamzmxn6626.05.2020 03:33
-
sanyakryt02.06.2021 14:46
-
СерёгаД08.11.2020 17:38
-
алинкажемчуг29.05.2022 17:28
-
viklya3031.08.2020 12:32
-
дарья164306.05.2020 03:12
-
emeljanenkoira12.10.2022 08:03
-
444m07.04.2023 13:39
-
mikalis14.09.2022 15:31