Задать вопрос
1 января, 04:49

Введите с клавиатуры одномерный массив А (N), элементами которого являются

положительные и отрицательные целые числа. Подсчитайте произведение положительных

элементов этого массива и количество отрицательных. Сформируйте новый массив В (N) из

элементов массива А (N), в котором все элементы которые стоят на четных местах замените

на произведение положительных, а на нечетных - на количество отрицательных

+1
Ответы (1)
  1. 1 января, 08:04
    0
    Var

    a, b:array [1 ... 1000] of integer;

    i, s, c, n:integer;

    begin

    writeln ('Введите кол-во чисел') ;

    readln (n) ;

    s:=1;

    c:=0;

    for i:=1 to n do begin

    writeln ('a[', i,'] = ') ;

    read (a[i]) ;

    if (a[i]>0) then s:=s*a[i];

    if (a[i]<0) then c:=c+1;

    end;

    for i:=1 to n do begin

    if (i mod 2 0) then a[i]:=c

    else a[i]:=s;

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Введите с клавиатуры одномерный массив А (N), элементами которого являются положительные и отрицательные целые числа. Подсчитайте ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы