Сделайте алгоритм буквы к с векторами , высота буквы 6 кл а ширина 3 кл(сверху ) 4 кл(снизу ). начинается - id900711220230309 от AльфаDog 09.03.2023 19:37

Question

Информатика: Сделайте алгоритм буквы к с векторами , высота буквы 6 кл а ширина 3 кл(сверху ) 4 кл(снизу ). начинается с 2 по x с самого низа. это по информатики

AльфаDog · 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

Сделайте алгоритм буквы к с векторами , высота буквы 6 кл а ширина 3 кл(сверху ) 4 кл(снизу ). начинается с 2 по x с самого низа. это по информатики

MOGZ ответил