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

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.

Comments

2)

---

2) var
arr: array[0..5] of Integer;
i: Byte;
begin
Randomize;
for i := 0 to 5 do
begin
arr[i] := random(4) + 8;
writeln('Koren iz ', arr[i], ' = ', sqrt(arr[i]));
end;
end.

---

3) var
arr: array[0..29] of Integer;
i, count: Byte;
begin
Randomize;
count := 0;

for i := 0 to 29 do
begin
arr[i] := random (200)-100;

if arr[i] mod 5 = 0 then
begin
writeln('4islo ', arr[i], ' kratno 5-ti');
count := count + 1;
end;
end;

writeln('Obshee koli4estvo 4isel kratnyh 5-ti = ', count);
end.

---

Всё решено)

---

Спасибо большое:)