Составьте программу, заполняющую массив заданной размерности случайными целыми числами и обрабатывающую его в соответствии с вариантом . обратите внимание на правильное использование типов данных (помните, что результат операции может отличаться от типа исходных данных). исходный массив: s[0..75] что требуется сделать: изменить знак всех четных элементов массива с четными индексами

ответ:

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.

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

program w7w7;

var a: real;

begin

readln (a);

if a< 0 then writeln ('otritsatelnoe chislo');

if a> 0 then  writeln ('pologitelnoe chislo');

end.

var m,r: real;

begin

writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре)  > ');

read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см)  > ');

read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');

end.