. Дан массив содержащий 8 целых чисел.
Массив ввести с клавиатуры
вывести массив на экран в одну строку и найти произведение отрицательных элементов массива

Аха555 Аха555    2   04.04.2021 21:51    0

Ответы
местоимение111 местоимение111  04.05.2021 22:53

Решение представлено во вложениях.

Язык: Pascal


. Дан массив содержащий 8 целых чисел. Массив ввести с клавиатуры вывести массив на экран в одну стр
. Дан массив содержащий 8 целых чисел. Массив ввести с клавиатуры вывести массив на экран в одну стр
ПОКАЗАТЬ ОТВЕТЫ
Kristina2005fomina Kristina2005fomina  04.05.2021 22:53

var massive:array[1..8] of integer;

num, mult, i:integer;

begin

mult:=1;

for i:=1 to 8 do

begin

readln(num);

massive[i] := num;

end;

writeln(massive);

for i:=1 to 8 do

if massive[i] < 0 then

mult := mult * massive[i];

write('Multiplication = ', mult);

end.

мой ответ? Отмечай его лучшим)

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика