Пожалуйста помогите, задачи в Паскале:1)Заполнить массив случайными числами от -100 до...

Question

Пожалуйста помогите, задачи в Паскале:
1)Заполнить массив случайными числами от -100 до +100
и распечатать на экране только отрицательные числа
2)Дан массив из 20 элементов числа от -50 до +50
а)Каждый элемент больше 10 заменить на его квадратный корень
б)Все элементы с четными номерами заменить на их абсолютную величину(модуль)
в)Ко всем отрицательным элементам прибавить 5 , а к остальным первый элемент массива

Comments

Во втором все в одной программе делать или для каждой буквы отдельно?

---

Желательно отдельно

Answer 1

Var
  i:integer;
  a:array[1..20]of integer;
begin
for i:=1 to 20 do
  begin
  a[i]:=random(-100,100);
  if a[i]<0 then write(a[i],' ');<br>  end;
end.

2)
а)
var
  i:integer;
  a:array[1..20]of real;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
  begin
  a[i]:=random(-50,50);
  write(a[i],' ');
  end;
writeln;
for i:=1 to 20 do  if a[i]>10 then a[i]:=sqrt(a[i]);
writeln('Измененный массив:');
for i:=1 to 20 do write(a[i]:7:2);
end.

б) 
var
  i:integer;
  a:array[1..20]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
  begin
  a[i]:=random(-50,50);
  write(a[i]:4);
  end;
writeln;
for i:=1 to 20 do  if (i mod 2=0) then a[i]:=abs(a[i]);
writeln('Измененный массив:');
for i:=1 to 20 do write(a[i]:4);
end.

в) 
var
  i,n:integer;
  a:array[1..20]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
  begin
  a[i]:=random(-50,50);
  write(a[i]:4);
  end;
writeln;
n:=a[1];
for i:=1 to 20 do
  if a[i]<0 then a[i]:=a[i]+5<br>  else a[i]:=a[i]+n;
writeln('Измененный массив:');
for i:=1 to 20 do write(a[i]:4);
end.

Comments

Спасибо большое)