Произведение всех целых чисел от 1 до b (значение b вводится с клавиатуры; 1<= b<= 20); Запишите блок схему
201
248
Ответы на вопрос:
ответ:
var i,s: integer;
a: array [1..10] of integer;
begin
write('массив ');
for i: =1 to 10 do
begin
a[i]: =random(71)-30;
write (a[i]: 4);
if a[i]> 0 then s: =s+a[i]
end;
writeln;
write('сумма положительных элементов массива ',s)
end.
объяснение:
a[i]: =random(71)-30 если от -30 до 40 включительно
a[i]: = random (70)-30 если от -30 до 39 включительно
Популярно: Информатика
-
oksanka19980003.02.2022 22:24
-
Viksa145109.06.2020 23:51
-
vyachik200024.11.2022 19:52
-
07777108630.04.2021 08:26
-
tkacheff201417.06.2022 19:33
-
vagiz977904.01.2020 11:46
-
Ermolenkoo03.04.2022 08:40
-
dstepin1720.02.2020 14:39
-
JAHGH05.05.2022 16:58
-
nastyaasdfg25.01.2022 22:57