Question

Пожалуйста, помогите решить задачи по информатике на языке паскаля:
1. Дан массив из 7 целых чисел, которые могут принимать значения от -1 до 50. Все элементы, кратные 3, замените на 0. Найдите количество элементов, равных 7.
2. Дан массив из 10 целых чисел, которые могут принимать значения от 0 до 70. Найти: 1) сумму элементов массива;

Answer 1

Ответ:

(см. объяснение)

Объяснение:

Первую программу пишу тебе твоим школьным языком. На примере второй программы я покажу тебе возможности Pascal, которые позволяют решить ее в 1 строчку кода.

Задание №1:

program task1;

var a: array [1..7] of integer;

   i,k: integer;

begin

 randomize;

 k:= 0;

 for i:= 1 to 7

   do begin

       a[i]:= random(50)-1;

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

       else if(a[i] = 7) then k:= k+1;

      end;

 write('Массив с замененными числами: ');

 println(a);

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

end.

Задание №2:

begin 'Сумма элементов массива: '.Concat(IntToStr(ArrRandom(10, 0, 70).Sum)).Print; end.