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