Прочитай рассказ таинсвенные вершины из книги мои путешествия Ф Конюхова составь план текста соблюдая - id1381506720211226 от maxkostin29rus 26.12.2021 04:04

Question

Информатика: Прочитай рассказ таинсвенные вершины из книги мои путешествия Ф Конюхова составь план текста соблюдая последствательность событий

maxkostin29rus · Accepted Answer

Const
n = 20;

var
a: array[1..n] of integer;
b: array[1..(n div 3)+1] of integer;
i, m: integer;

begin
Randomize;
Writeln('Элементы массива');
m := 0;
for i := 1 to n do
begin
    a[i]:= Random(155)-55;
    Write(a[i]:4);
    if (a[i]>51) and (i mod 3=0) then
    begin m:=m+1; b[m]:=a[i] end
end;
Writeln;
if m>0 then begin
    Writeln('Элементы сформированного массива');
    for i := 1 to m do Write(b[i]:3);
    Writeln
end
else Writeln('Нет элементов с индексом, кратным 3, больших 51')
end.

Тестовое решение:
Элементы массива
57 -3 79 -49 30 87 -15 49 -38 -49 -45 -38 55 -27 48 -29 56 63 79 -2
Элементы сформированного массива
79 87 63

Прочитай рассказ таинсвенные вершины из книги мои путешествия Ф Конюхова составь план текста соблюдая последствательность событий

MOGZ ответил