Ответ:
ок не буду))))))))))))))))))
Dlya zadachi N2 prikrepil faili, a dlya pervoi - 1 bait;
1)Ввод данных (допустим а, в, с (строго в этом порядке))
2)Сравнение а>A (Если "правда" тогда "2а" если нет "2б")
2а)Сравнение a<B (Если "правда" тогда "3" если нет "2б")
2б)Переход к пункту 2 (При этом "a" меняется на "b" и т.д.)
3) вывод данных (если есть еще числа тогда "2б", если нет тогда окончание блок схемы)
Program maschetinol;
var a:array [1..25] of Integer;
i:Integer;
begin
Write ('Массив: ');
for i:=1 to 25 do
begin
a[i]:=random(51);
write (a[i], ' ');
end;
WriteLn;
Write('Чётные элементы: ');
for i:=1 to 25 do
if a[i] mod 2 = 0 then
Write (a[i],' ');
WriteLn;
Write('Элементы, оканчивающиеся на ноль: ');
for i:=1 to 25 do
if a[i] mod 10 = 0 then
Write(a[i],' ')
end.
Блок-схема расчета площади квадрата
в приложении.