Delphi_Массивы

[aRRiva]

Помогите пожалуйста решить задачки в delphi)
Задача 1.Преобразовать одномерный массив, расположив числа массива в обратной последовательности.


Задача 2.Преобразовать одномерный массив. Найти сумму отрицательных и произведение положительных чисел массива. Ни фига не понятно!

[puporev]

Ну если это непонятно, завязывай с учебой.

[OLEG'arh]

1)

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

 var
  a:array[1..10] of integer;
  i,x:integer;
begin
  randomize;
  writeln('Do');
  for i:=1 to 10 do
    begin
      a[i]:=random(10)+1;
      write(a[i],'   ');
    end;
  for i:=1 to 5 do
    begin
      x:=a[i];
      a[i]:=a[11-i];
      a[11-i]:=x;
    end;
  writeln;
  writeln('Posle');
  for i:=1 to 10 do
    write(a[i],'   ');
  readln;
end.

[OLEG'arh]

2)

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

 var
  a:array[1..10] of integer;
  i,otr,pol:integer;
begin
  randomize;
  for i:=1 to 10 do
    begin
      a[i]:=random(20)-9;
      write(a[i],'   ');
    end;
  for i:=1 to 10 do
    if a[i]<0 then otr:=otr+a[i] else pol:=pol+a[i];
    writeln;
    writeln('otr = ',otr);
    writeln('pol = ',pol);
  readln;
end.

[aRRiva]

Спасибо ребят

[aRRiva]

Вот еще задачка.
Преобразовать (двумерный) массив: разделить элементы каждой строки матрицы на последний элемент этой строки.

[MalexG]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

const
  Imax = 5;
  Jmax = 5;

var
  i, j: byte;    
  Matrix: array [0..Imax-1, 0..Jmax] of integer;
  Str: array [0..255] of char;

begin
  randomize;
  CharToOem('Исходный массив:', Str);
  writeln(Str);
  for i := 0 to Imax-1 do
  begin
    for j := 0 to JMax-1 do
    begin
      Matrix[i, j] := random(100) + 1;
      write(Matrix[i, j], '   ');
    end;
    writeln;
  end;
  writeln;
  writeln;
  CharToOem('Массив после преобразования:', Str);
  writeln(Str);
  for i := 0 to Imax-1 do
  begin
    for j := 0 to JMax-1 do
    begin
      Matrix[i, j] := Matrix[i, j] div Matrix[i, JMax-1];
      write(Matrix[i, j], '   ');
    end;
    writeln;
  end;
  writeln;
  readln;
end.

[Alter]

На Pascal():

Uses Crt;
Const Rx = 5; {Stroki}
      Cx = 6; {Stolbci}
Var Ar :Array[1..Rx, 1..Cx] of Real;
    R,C :Integer;
begin
 ClrScr;
 Randomize;
 Writeln(#13#10, 'Zapolnenie massiva[Row:', Rx, ', Col:', Cx, ']:');
 For R:=1 To Rx Do
 begin
  For C:=1 To Cx Do
  begin
   Ar[R, C] := Random(200);
   Write(' ', Ar[R, C]:3:2);
  end;
  Writeln;
 end;

 Writeln(#13#10, 'Modificaciya massiva:');
 For R:=1 To Rx Do
 begin
  For C:=1 To Cx Do
  begin
   If C<Cx then
    Ar[R, C] := Ar[R, C] / Ar[R, Cx-1];
   Write(' ', Ar[R, C]:3:2);
  end;
  Writeln;
 end;

 Readln;
end.

[aRRiva]

Спасибо огромное

[aRRiva]

Ребята! Последняя лаба в этом семестре.
Работа с внешними файлами, использование ЗАПИСЕЙ.
Задача:
Вывести список студентов, имеющих все оценки не ниже 35