Question

Нужна помощь с задачами по массивам.
1)Вы создаете массив из 100 элементов, содержащий 100 чисел (вводится случайные числа). Вывести массив, содержащий только положительные четные числа из этого диапазона.

2)Даны целые числа a1, a2, … a50. (массив заполняется случайными числами). Найти сумму тех элементов массива, которые кратны 3.

Answer 1

1)
var  massive :
 array [1..100] of integer;
 i : integer;
begin   
 // рандомизируем сид   
 randomize(); 
 for i := 1 to 100 do begin   
 // заполняем массив случайными числами от -100 до 100   
 massive[i] :=  random(201)-100 ;   
 // выводим число, если оно больше нуля и кратно двум. 
 if ((massive[i] > 0) and (massive[i]  mod 2 = 0))   
  then write(massive[i]+' '); 
 end; 
end.

2)
var  a :
 array [1..50] of integer;
 i ,summ: integer; 
begin   
 // рандомизируем сид   
 randomize();   
 // инициализируем переменную суммы   
 summ := 0; 
 for i := 1 to 50 do begin   
  // заполняем массив случайными числами от -100 до 100 
  a[i] := random(201)-100 ;   
  // суммируем если кратно трем   
  if a[i]  mod 3 = 0    then begin summ := summ + 1;  write(a[i] + ' '); end; 
 end; 
 // выводим результат 
 writeln(); 
 writeln('Сумма чисел кратных трем = ' + summ); 
end.