Задание 1.Нарисуйте блок-схему решения задачи «Из трех чисел найти самое большое»(ФОТО)Задание 2.На школьном алгоритмическом языке напишите программу решения следующей задачи: «Выводится сумма двух чисел, если оба числа одинакового знака»(МОЖНО РЕШИТЬ ОДИН ПУНКТ)

A.
var 
a:array[1..10] of real; 
i:integer;
begin 
for i:= 1 to 10 do Begin 
write('Введите ',i,'-ый элемент массива '); 
Readln(a[i]); 
if a[i]>10 then a[i]:=sqrt(a[i]); 
End; 
write('Преобразованный массив '); 
for i := 1 to 10 do write(a[i],' | ');
end.

б.
var 
a:array[1..10] of real; 
i:integer;
begin 
for i:= 1 to 10 do Begin 
write('Введите ',i,'-ый элемент массива '); 
Readln(a[i]); 
if (i mod 2) = 0 then a[i]:=trunc(a[i]); 
End; 
write('Преобразованный массив '); 
for i := 1 to 10 do write(a[i],' | ');
end.