здравствуйте, вот собственно задание - Задан одномерный массив А(12). Преобразуйте этот массив, заменив отрицательные элементы их квадратами, а положительные элементы - квадратными корнями. Значения элементов исходного массива задайте самостоятельно, используя процедуру ввода данных с клавиатуры. Для ввода данных и обработки массива используйте оператор цикла FOR. Выведите на экран исходный и преобразованный массивы. я что-то пробовал но так ничего и не добился... помогите пожалуйста..
Code
program eee;
uses crt;
const n=12;
var i:integer;
a:array[1..n] of real;
begin
clrscr;
for i:=1 to n do
begin
write ('vvedite elementu a[',i,']:');
readln (a[i]);
end;
begin
for i:=1 to n do
write (a[i]:5);
end;
begin
writeln;
if a[i]<=0 then
a[i]:=a[i]*a[i];
write (a[i]:5);
end;
readkey;
end.
