Консультация № 196800
25.10.2019, 12:05
0.00 руб.
0 1 1
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

Массив из чисел от -10 до 20. Вывести на экран значение каждого пятого положительного элемента. Указанные элементы вывести в строку
Pascal

Приложение:
Pascal

Обсуждение

давно
Старший Модератор
31795
6196
25.10.2019, 14:22
общий
это ответ
Здравствуйте, rail!

Смотрите приложение:
[code lang=pascal]const
n=40;
var
a:array[1..n]of integer;
b,c,d:integer;
begin
c:=4;
for b:=1 to n do
begin
a[b]:=random(30)-10;
write(a[b]:4);
if c=0 then
begin
writeln;
c:=5;
end else dec(c);
end;
writeln;
c:=5;
writeln('result:');
for b:=1 to n do
if a[b]>0 then
begin
dec(c);
if c=0 then
begin
write(a[b]:4);
c:=5;
end;
end;
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа