1.) Заполните числовой массив из 8 элементов с клавиатуры и выведите на экран частное 5 и 3 элементов

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

3) Посчитать сколько в массиве из 30 чисел (числа от - 100 до 100) кратных 5

Question

Информатика

Нинаня

11 апреля, 08:29

1.) Заполните числовой массив из 8 элементов с клавиатуры и выведите на экран частное 5 и 3 элементов

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

3) Посчитать сколько в массиве из 30 чисел (числа от - 100 до 100) кратных 5

+1

Ответы (1)

Знаете ответ на вопрос?

Ая · 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.