Задачка на Паскале

[Евгений2]

Спасибо огромное, выручил!!!

не работает...
извини за настойчивость... посмотри, пожалуйста...

[Маргусик Фам]

помогите мне решить задачку...

[Jora_Kornev]

попробуйте так:

program Kr_2_3;
 type
  LinMass = Array[1..100] Of Integer;
 var 
  a : LinMass;
  z, i, j, temp, n : Integer;
BEGIN
 write('введите размер массива? ');
 readln(n);
 for i:=1 to n do
  begin
   write('элемент A[', i, ']= ');
   readln(a[i]);
  end;
 z:=-1;
 for i:=1 to n-1 do
  for j:=i+1 to n do
   begin
    if (i mod 4) = 0 then z:=i;
    if ((j mod 4) = 1) and (z<>-1) then
     begin
      temp:=a[z];
      a[z]:=a[i];
      a[i]:=temp;
      z:=-1;
     end;
   end;
 for i:=1 to n do
  write('A[',i,']=',a[i],' ');
END.

[Маргусик Фам]

Мне очень нужно решить 3 задачки по одномерным массивам...
1. Если у заданного вектора A(N) есть хотя бы один элемент, меньший чем -5, то все отрицательные элементы замените их квадратами, оставив остальные элементы без измененияЖ в противном случае вектор помножьте на 0,1.
2. Найти максимальный отрицательный из данных n элементов. Если требуемые элементы отсутствуют, то вывести 0.
3. Найти количество мин. и макс. элементов в массиве из данных n целочисленных элементов.

Буду очень благодарна! Решите мне эти три задачки...

[Jora_Kornev]

2 Маргусик Фам Вы хотябы показали что у вас уже имеется... Иначе ошибку найтит очень проблематично)

[Маргусик Фам]

program pr1;
{const n=10;}
var a:array[1..100] of real;
var i,n:integer;

begin
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=-10+random(n);
write(a[i]:4:0);
end;
writeln;

if (a[i]<-5) then writeln('a[i]',a[i]:3:0);
begin
if (a[i]<0) then a[i]:=a[i]*a[i] else a[i]:=a[i]*0.1;
end;
write(a[i]:2:0);
readln;


end.

Ну и где тут ошибка? Это первая задачка.

[Jora_Kornev]

Вот исправленный код для Маргусик Фам:

program pr1;
var 
  a : array [1..100] of real;
  i, z, n : integer;

begin
 readln(n);
 randomize;
 z:=0;
 for i:=1 to n do 
  begin
   a[i]:=-10+random(20);
   if a[i]<0 then z:=1;
   write(a[i]:0:0, ' ');
  end;
 writeln;
 if z=1 then
  begin
   for i:=1 to n do
    if a[i]<0 then a[i]:=sqr(a[i]);
  end else
   for i:=1 to n do a[i]:=a[i]*0.1;
 for i:=1 to n do
  write(a[i]:0:0);
 readln;
end.