Регистрация
creator4567
20.05.2020 21:10
Информатика
Есть ответ 👍

Водномерном массиве с(15) определить произведение и количество элементов, которые равны 30

274
317
Посмотреть ответы 2

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

Amelka06
Amelka06
4,7(9 оценок)

код (pascal)

var

c: array[1..15] of integer;

i, k: integer;

pr: longint;

begin

for i: =1 to 15 do

read(c[i]);

pr: =1;

k: =0;

for i: =1 to 15 do

if c[i]=30 then

begin

pr: =pr*3;

k: =k+1;

end;

if k=0 then pr: =0;

write(pr);

for i : = 1 to k do write(0);

writeln(' ', k);

end.

owe4kinad
owe4kinad
4,4(42 оценок)

....................


составить алгоритм в виде блок-схемы им для решения следующей задачи ввести 2 числа a и b найти их с

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