Регистрация
Alina29521
17.05.2020 15:47
Информатика
Есть ответ 👍

Выражение p & (p v r) & (q v не r)

150
488
Посмотреть ответы 1

Ответы на вопрос:

ваня1259
ваня1259
4,8(31 оценок)

ответ:

program youname;

var i,n: integer;

s: array[0..75] of integer; // объявление массива

begin

write('введите количество элементов массива: ');

readln(n); // ввод кол-ва элементов массива

writeln('----------------------------------------');

writeln('исходный массив: ');

for i: =1 to n do // перебор от первого до n элементов массива

  begin

  // если используете паскаль abc, то можно написать так: s[i]: =random(-100,100);

  s[i]: =random(100-(-100)+1)+(-100); // заполнение элементов массива от -100 до 100.

  write(s[i], '(', i, ')',' '); // вывод элемента массива с его порядковым номером

  end;

writeln;

writeln('----------------------------------------');

writeln('видоизмененный массив: ');

for i: =1 to n do // перебор от первого до n элементов массива

  begin

  if (i mod 2 = 0) and (s[i] mod 2 = 0) then // если элемент и значение массива четное, то..

    begin

    s[i]: =s[i]*(-1); // смена знака на противоположный

    write(s[i], '(', i, ')',' '); // вывод элемента массива с его порядковым номером

    end;

  end;

writeln;

writeln('----------------------------------------');

end.

объяснение: если есть вопросы, то пишите мне в лс.

Популярно: Информатика