Подсчитать количество отрицательных, нулевых и положительных элементов массива с номерами позиций, кратных двум, начиная с первого. Размер носить
10-11 класс
|
массива произвольнаЯ
var
a : array [1..1000] of integer;
i, n, z, p, m : integer;
begin
i := 0;
while not eoln do
begin
read (z);
inc (i);
a[i] := z;
end;
m:= i; n:=0; z:=0; p:= 0;
for i := 1 to m do
if i mod 2 = 0 then
begin
if a[i] < = then inc (n)
else if a[i] > 0 then inc (p)
else inc (z);
end;
writeln (n, ' ', z, ' ', p);
end.
Другие вопросы из категории
напишите пожалуйста программу на паскале и блок схему!)
(данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление стоимости покупки.
Введите исходные данные:
Цена одного килограмма яблок (руб.) -> 8.5
Вес яблок (кг) -> 2.3
Стоимость покупки: 19.55 руб.
Нужна математическая модель И.д, В.д, Связь, и блок-схема.
Читайте также
положительных элементов.
подсчитать количество отрицательных элементов
сумму положительных элементов
ВЫВОДИТ НА ЭКРАН НОМЕРА ВСЕХ ЭЛЕМЕНТОВ, ЗНАЧЕНИЯ КОТОРЫХ =0
Значения элементов массива ввести с клавиатуры. Только можно поподробней)
положительных чисел нет
рассчитать по формуле tgG, где G номер элемента массива