Паскаль.Одномерный массив произвольной размерности заполнить ...

Question

Паскаль.Одномерный массив произвольной размерности заполнить ...

Vasy

Паскаль.Одномерный массив произвольной размерности заполнить случайными числами [-30;25].Найти количество элементов значение которых кратно 3 и имеют четные номера

Есть ответ

17.12.2022

91

Ответ

Answer 1 · 17.12.2022

const

n = 100;

var

a : array [1..n] of integer;

i, count : integer;

begin

count := 0;

for i := 1 to n do

a[i] := round (random (55)) - 30;

for i := 1 to n do

if (a[i] mod 3 = 0) and (i mod 2 = 0) then inc (count);

writeln (count);

end.

Паскаль.Одномерный массив произвольной размерности заполнить ...

Паскаль.Одномерный массив произвольной размерности заполнить случайными числами [-30;25].Найти количество элементов значение которых кратно 3 и имеют четные номера

Ответ

const n = 100; var a : array [1..n] of integer; i, count : integer; begin count := 0; for i := 1 to n do a[i] := round (random (55)) - 30; for i := 1 to n do if (a[i] mod 3 = 0) and (i mod 2 = 0) then inc (count); writeln (count); end.

const

n = 100;

var

a : array [1..n] of integer;

i, count : integer;

begin

count := 0;

for i := 1 to n do

a[i] := round (random (55)) - 30;

for i := 1 to n do

if (a[i] mod 3 = 0) and (i mod 2 = 0) then inc (count);

writeln (count);

end.