Прошу помощи в решении задачи

[ann55]

Прошу помощи в решении задачи

1. Дан массив вещественных чисел
а) каждый отрицательный элемент заменить на его абсолютную величину.
б) все элементы с нечетными номерами заменить на их квадратный корень

2. Дан массив из двадцати элементов. Найти пять соседних элементов,сумма значений которых максимальна.

3. Дан массив целых чисел. Удалить из него.
а) все четные элементы, стоящие на нечетных местах
б) все элементы, кратные 3 или 5

Заранее спасибо!:tehnari_ru_942:

 

[Léon1]

Язык программирования?

 

[ann55]

Pascal, массив

 

[Gruvi]

Вот на тебе
Задание №1.

const n = 12;
var
a : array[1..n]of real;
i,k1,k2 : byte;
Begin
randomize;
writeln('ishodnyj: ');
for i:=1 to n do begin
a:=random(148)/7-10;
write(a:0:2,' ');
end;

writeln;writeln('a) :');
for i:=1 to n do begin
if a<0 then a:=abs(a);
write(a:0:2,' ');
end;

writeln;writeln('b) :');
for i:=1 to n do begin
if odd(i) then a:=sqrt(a);
write(a:0:2,' ');
end;
readln;
End.

Задание № 3а

Uses
CRT;
Var
a:array[1..100] of integer;
i,n,j:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln;
until n in [1..100];
writeln('Исходный массив:');
for i:=1 to n do
begin
a:=random(10)-3;
write(a,' ');
end;
writeln;
for i:=(n div 2+n mod 2) downto 1 do
if a[i*2-1] mod 2=0 then
begin
for j:=i*2-1 to n-1 do
a[j]:=a[j+1];
n:=n-1;
end;
writeln;
for i:=1 to n do
write(a,' ');
end.

Задание № 3б

Program massiv;
var a:array[1..100] of integer;
n,i,j:integer;
f:text;
begin
assign(f, 'mass.txt');
reset(f);
read(f,n);
writeln('Исходный массив:');
for i:=1 to n do
begin
read(f,a);
write(a,' ');
end;
close(f);
writeln;
i:=1;
while i<=n do
if (a mod 3=0)or(a mod 5=0) then
begin
for j:=i to n-1 do
a[j]:=a[j+1];
n:=n-1;
end
else i:=i+1;
writeln('Удаление элементов:');
for i:=1 to n do
write(a,' ');
readln;
end.

Ввод из файла. Обычно его указывают в файле первым числом, например
8
1 3 7 5 9 8 3 15

Задача № 2

program summa;
uses Crt;
const
n = 20;
var A: array[1..n] of integer;
s: integer;
i: integer;
begin
ClrScr;
randomize; {запускаем генератор случайных чисел}
FOR I:=1 to n do
A:=random(20);
FOR I:=1 to n do
begin
Write (A);
Write(' ');
end;
s:=0;
FOR I:=1 to n do
S:=S+A;
WriteLn;
WriteLn ('Сумма чисел: ', s);
end.