ответ: Pascal ABC.Net
Program Zadacha;
var a,b:array[1..1000] of integer;
n, i, max:integer;
BEGIN
write('Задайте количество элементов массива N<1000: ');
read(n);
max:=-30000;
for i:=1 to n do
begin write('Задайте ',i,'-й элемент массива: ');
read(a[i]);
if a[i]>max then max:=a[i];
end;
for i:=1 to n do
begin b[i]:=a[i]*max;
writeln(b[i]);
end;
END.
Объяснение:
Блок-схема:
1) Число является неотрицательным - значит число положительно либо равно 0.
Блок схему я прикрепил.
2) Нужно вычислить m в зависимости от его значения.
Т.е. если m>0, то выдать ответ квадратный корень из m+7.
В противном случае m-2.
Программа на pascal:
program cal;
var
m : real;
begin
read(m);
if m>0 then
write(sqrt(m+7)) else write(m-2);
end.