Есть ответ 👍

Плзз оч надо ну пряяям ооочень

249
434
Посмотреть ответы 2

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

kzizh
4,4(90 оценок)

Сенің таңдап тұрғанын дұрыс

Объяснение:


Вот код на pascalabc. var b,o,i: integer; a: array[1..9] of integer; beginfor i: =1 to 9 do readln(a[i]); o: =1; for i: =1 to 9 do begin  if a[i]> 0 then   begin    b: =a[i];     o: =o*b;   end; end; writeln(o); end.p.s. последовательность надо вводить через enter. если хочешь через пробел измени 5 строчку кода на  read(a[i]);

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