Предмет: Информатика,
автор: ScreaMEpsilon
Создать массив А(10) из целых чисел в диапазоне [-31,18]. Вывести массив на экран. Подсчитать сумму элементов, кратных 5.
Написать через процедуру в ABCPascal
Ответы
Автор ответа:
2
Ответ:
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.
ScreaMEpsilon:
спасибо бро :)
можешь переделать её, я забыл указать, что нужно использовать подпрограмму
какую подпрограмму? имеешь в виду функцию?
а поняла, сейчас напишу процедуру:)
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.
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.
вот так?:)
вроде так, спасибо :)
отметь пожалуйста мой ответ как лучший если не сложно
:)))
Похожие вопросы
Предмет: Русский язык,
автор: я2000
Предмет: Английский язык,
автор: spycomp
Предмет: Русский язык,
автор: kuklaluka
Предмет: Алгебра,
автор: kristinavacarciuk