PASCAL
1 В одномерном массиве произвольных чисел в(15) отрицательные массивы уменьшить на 5, а отрицательные элементы на 0

2 дан одномерный массив в(20) напечатать номера элементов значения которых находятся в заданном диапазоне ( с,d)

3 две массив из в(25) элементов . Определить среднее арифметическое элементов массива кратных 4 и кратных 6

4 дан массив из в(15) элементов найдите сумму элементов с четными номерами и произведение элементов с нечетными номерами

5 в одномерном массиве в(35) вычислить среднее арифметическое положительных элементов

6 дан массив из в(15) элементов в нем нечетные числа заменить на - 5, а четные на 5 , вывести на экран монитора содержимое массива до обработки и после обработки

1.Культурное наследие – духовное богатство нации, складывающееся на протяжении столетий. ... Одна из старейших организаций, чья деятельность направлена на сохранение и популяризацию национального культурного и природного наследия, была создана в 1894 году в Великобритании.

2.Тот, кто получает наследство, наследует кому-н.

Продолжатель чьей-н. деятельности, преемник.

Перевести "наследник" на

выбрать язык

3.Есть разные профессии бухгалтер,пилот,Резчик по камню,Психолог,Графический дизайнер и т.д

4.Кем ты хочешь стать? Скажи вот и ответ

program z1;

  var a,b,k,i:integer;

    begin

      k:=0;

      write('Ââåäèòå êîîðäèíàòó à: ');

      read(a);

      write('Ââåäèòå êîîðäèíàòó b: ');

      read(b);

      for i:=a to b do begin

                       if i mod 3=0 then begin

                                           writeln(i);

                                           k:=k+1;

                                         end;

                       end;

      writeln('Количество чисел кратных трём равно ',k);

     readln;

    end.