даны 5 чисел, найти сумму и кол-во положительных и произведение и кол-во отрицательных.
10-11 класс
|
var
array a[1..5] of integer;
i,sum,pr,pol,otr:integer;
for i:=1 to 5 do
readln(a[i]);
sum:=0;
pr:=1;
pol:=0;
otr:=0;
for i:=1 to 5 do begin
sum:=sum+a[i];
pr:=pr*a[i];
if a[i]>0 then
pol:=pol+1;
if a[i]<0 then
otr:=otr+1;
end;
writeln(sum, ' ', pol, ' ',pr, ' ',otr);
end;
Другие вопросы из категории
второй, четыре за третий и так далее (за каждый следующий гвоздь в два раза больше, чем за предыдущий). На покупку скольких гвоздей у покупателя хватит имеющихся у него 1000 рублей? Известно, что в каждой подкове по 6 гвоздей.
Читайте также
среди 10 элементов вещественного массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
получает на вход два натуральных числа А и В, не превосходящих 10^9^ А<=В . Программа должна вывести одно число - кол-во натуральных чисел, больше или равных А и меньших или равных В, сумма цифр которых четна.
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.