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

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.

Comments

спасибо бро :)

---

можешь переделать её, я забыл указать, что нужно использовать подпрограмму

---

какую подпрограмму? имеешь в виду функцию?

---

а поняла, сейчас напишу процедуру:)

---

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.

---

вот так?:)

---

вроде так, спасибо :)

---

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

---

:)))