Регистрация
5Костя5
08.02.2022 04:39
Информатика
Есть ответ 👍

с информатикой! заранее Дано 10 чисел. Найти произведение чисел, которые больше 0. паскаль

125
230
Посмотреть ответы 2

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

kulikovamascha
kulikovamascha
4,8(8 оценок)

var a:array [1..100] of integer;

var n,i,k :integer;

begin

k:=1;

for i:=1 to 10 do begin

read (a[i]);

if a[i]<10 then k:=a[i]*k;

end;

write(k);

end.

azzitop
azzitop
4,4(56 оценок)
Из  2048 точек информационный объем одной точки 64-цветного растрового изображения равен  6 бит информационный объем одной точки черно-белого растрового изображения равен  1 бит

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