Question

Создать массив А(10) из целых чисел в диапазоне [-31,18]. Вывести массив на экран. Подсчитать сумму элементов, кратных 5.

Написать через процедуру в ABCPascal

Answer 1

Ответ:

var

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

i : integer;

kratn : integer := 0;

begin

for i := 1 to 10 do

begin

a[i] := random(-31, 18);

writeln(a[i]);

if a[i] mod 5 = 0 then kratn := kratn + 1;

end;

writeln('Количество элементов, кратных 5 = ', kratn);

end.

Answer 2

type Arr = array [1..10] of integer;
procedure reshenie(var a : Arr);
var
i : integer;
kratn : integer;
begin
kratn := 0;
for i := 1 to 10 do
begin
a[i] := random(-31, 18);
writeln(a[i]);
if a[i] mod 5 = 0 then kratn := kratn + 1;
end;
writeln('Количество элементов, кратных 5 = ', kratn);
end;
var a : arr;
begin
reshenie(a);
end.

Answer 3

отметь пожалуйста мой ответ как лучший если не сложно