Известно,что в составе поезда 8 вагонов. какое количество информации было получено из сообщения: "встречайте.5 вагон.лена"
124
462
Ответы на вопрос:
program sumandmul;
uses crt;
var a: array[1..10] of real;
i: integer;
sum,mul: longint;
begin
clrscr;
for i: =1 to 10 do
begin
write('введите -', i,' число: ' );
readln(a[i]);
end;
sum: =0; mul: =1;
for i: =1 to 10 do
begin
if (a[i]> 0) then sum: =sum+a[i];
if (a[i]< 0 ) then mul: =mul*a[i];
end;
writeln('сумма положительных элементов: ',sum);
writeln('произведение отрицательных элементов: ',mul);
readkey;
end.
Популярно: Информатика
-
voronkovid26.05.2022 07:28
-
dragogogo12.04.2020 05:53
-
costya9930.03.2023 02:30
-
sashamenkov1830.01.2020 00:37
-
Skapisheva1515151510.06.2020 15:46
-
8962235670303.01.2022 04:14
-
fuvgkvu11.06.2023 22:26
-
efr4716.05.2022 10:28
-
gimazova9923.06.2022 04:26
-
tanya310428.05.2021 06:49