1.)Заполните числовой массив из 8 элементов с клавиатуры и выведите на экран частное 5 и 3 элементов 2)Дан массив из 6 элементов(заполните через датчик случайных чисел:числа от 8 до 12)Из всех его элементов рассчитать квадратны...
1.)Заполните числовой массив из 8 элементов с клавиатуры и выведите на экран частное 5 и 3 элементов
2)Дан массив из 6 элементов(заполните через датчик случайных чисел:числа от 8 до 12)Из всех его элементов рассчитать квадратный корень.
3)Посчитать сколько в массиве из 30 чисел(числа от - 100 до 100)кратных 5
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы