Дан массив из 10 целых чисел определите произведение положительных элементов массива
156
491
Ответы на вопрос:
Выполнена на языке pascal; var i: integer; w: real; mas: array[1..10] of integer; begin w: = 1; for i: =1 to 10 do begin if mas[i] > 0 then w: = w * mas[i]; end; writeln (mas); end;
Популярно: Информатика
-
Rendagor17.07.2021 00:17
-
mathewkichunov10.11.2022 21:22
-
beksedaniar16.09.2020 02:00
-
aleksandrzhark18.12.2020 03:06
-
masgovorchenko03.03.2021 07:49
-
ДОМАШКАФИЗИКА03.03.2022 05:31
-
Рмирот28.06.2023 10:54
-
alina20012012.02.2023 18:14
-
мария238403.01.2023 08:01
-
vectr200327.12.2021 08:19