В условии задачи было бы неплохо указывать размер и тип массива и язык программирования на котором необходимо сделать задание.
Program Masiv;
Uses Crt;
const n=15; {у нас массив будет 15 элементов и целочисленный}
{если размер и тип другие поменяй значение n и тип}
var a: array[1..n] of integer;
i:integer;
begin
clrscr;
write('Введите элементы массива:');
for i:=1 to n do readln(a[i]);
writeln;
write('Исходный массив:')
for i:=1 to n do write(a[i]:3);
for i:=1 to n do
if (a[i]<0) then a[i]:=abs(a[i]);
writeln;
write('Обработанный массив:')
for i:=1 to n do write(a[i]:3);
readkey;
end.
1) uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
end;
writeln('Число ',a,' в степени ',n,' равно ',s);
end.
2)uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
writeln(a,' в степени ',i,' равно ',s);
end;
end.
3)uses crt;
var a,s,p:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
p:=1;
write('1 + ');
for i:=1 to n do begin
s:=s*a;
p:=p+s;
if i<n then write(s,' + ');
if i=n then write(s,' = ');
end;
writeln(p);
end.
st:string;
begin
write ('введите имя файла ');
readln(f1);
reset (f1); { открыть файл для чтения }
while not eof (f1) do { пока не конец файла f1}
begin
readln (f1, st); {читаем строку из файла f1 }
writeln(st); { выводим на экран }
end;
close (f1); { закрыть файл для чтения}
end .