Question

1.)Заполните числовой массив из 8 элементов с клавиатуры и выведите на экран частное 5 и 3 элементов 2)Дан массив из 6 элементов(заполните через датчик случайных чисел:числа от 8 до 12)Из всех его элементов рассчитать квадратный корень. 3)Посчитать сколько в массиве из 30 чисел(числа от - 100 до 100)кратных 5

Answer 1

1)
var
   arr: array[0..7] of Integer; 
   i : Byte;
begin 
   for i := 0 to 7 do 
   begin   
      write('Vvedite zna4enie ', i+1, ' elementa: ');
      readln(arr[i]); 
   end; 
writeln('4astnoe 5 i 3 = ', arr[4] / arr[2]);
end.