давно
Старший Модератор
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]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.