Const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;
begin
n:=10;
write('Введите элементы: ');
for i:=1 to N do
read(a[i]);
write('Вывод элементов массива: ');
for i:=1 to N do
write(a[i],' ');
for i:=1 to N do
if (a[i]>=5) then
write(a[i],' ');
end.
В блок-схеме прямоугольник - действие(оператор), ромб - условие, овал - начало и конец алгоритма, параллелограмм - ввод и вывод данных, шестиугольник - условие в циклическом алгоритме.
Var i,s:integer;
<span>begin </span><span> </span>
<span> s:=0; </span>
<span>for i:=1 to 10 do s:=s+i; </span>
writeln('Сумма:',s);
<span>end.</span>
Блок-схема алгоритма - в прилагаемом файле.
Https://pastebin.com/j15VvSZa - Вот так запиши будет норм
