Одномерный массив x(10) задать с клавиатуры. Найти сумму отрицательных, количество положительных и произведение ненулевых элементов.
299
ОТВЕТЫ
Var a : array [1..10] of integer;
Begin
Poiz
For i:=1 to 10 do readln(a[i]);
For i:= 1 to 10 do
Begin
Proz:= 1;
If a[i] lt; 0 then sum := sum -a[i];
If a[i] gt; 0 then kol := kol + 1;
If a[i] lt;gt; 0 then proz := proz * a[i];
End;
Write(sum, , kol, , proz, )
End.
Begin
Poiz
For i:=1 to 10 do readln(a[i]);
For i:= 1 to 10 do
Begin
Proz:= 1;
If a[i] lt; 0 then sum := sum -a[i];
If a[i] gt; 0 then kol := kol + 1;
If a[i] lt;gt; 0 then proz := proz * a[i];
End;
Write(sum, , kol, , proz, )
End.
37
Отв. дан
Кирилл
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Физика
Burigar
Сочинение последняя встреча Маши и дубровского ...
2018-09-23 00:00:00
Кристина
Диаметр земли равен 12700 км. Этотак диаметр в 11 ...
2018-09-23 00:00:00
Владимир
Сумую з тарасом шевченком твір роздум(СРОЧНО) ...
2018-09-23 00:00:00
Adoth
Решите уравнение:
74-(y+35) = 26 ...
2018-09-23 00:00:00