Одномерный массив x(10) задать с клавиатуры. Найти сумму отрицательных, количество ??оложительных и произведение ненулевых элементов.
?оложительных и произведение ненулевых элементов.
Ответы:
29-05-2018 19:13
Var a : array [1..10] of integer;BeginPoizFor i:=1 to 10 do readln(a[i]);For i:= 1 to 10 doBeginProz:= 1;If a[i] < 0 then sum := sum -a[i];If a[i] > 0 then kol := kol + 1;If a[i] <> 0 then proz := proz * a[i];End;Write(sum,, kol,, proz,)End.
Также наши пользователи интересуются:
Существительное общего рода:Катюша,Ватрушка,Обжора,БерёзаПомогите с тестом, пожалуйста!!!
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Одномерный массив x(10) задать с клавиатуры. Найти сумму отрицательных, количество ?» от пользователя Тема Лосев в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!