Сделайте плиз 1 задание в паскале. Срочно надо. Фото с заданием прикреплено.

+ 0 -

Elviraleshenko

24 июля 2014 г., 23:39:15 (9 лет назад)

const

  n = 100;

var

  a:array[1..n] of real;

  i, j:integer;

begin

  writeln('Исходный массив: ');

  for i := 1 to n do

  begin

    a[i] := random(101);

    write(a[i]:5:0);

    if i mod 10 = 0 then

      writeln;

  end;

  for i := 1 to n -1 do

    for j := 1 to n - i do

      if a[j] > a[j + 1] then

     begin

        a[j] := a[j] + a[j + 1];

        a[j + 1] := a[j] - a[j + 1];

        a[j] := a[j] - a[j + 1];

      end;

  writeln('Отсортированный массив');

  for i := 1 to n do

  begin

    write(a[i]:5:0);

    if i mod 10 = 0 then

      writeln;

  end;

end.

// вторая программа
type
  bag = record
    c:integer;
    v:byte;
  end;
const
  n = 100;
var
  a:array[1..n] of bag;
  i:integer;
  check:boolean;
begin
  randomize;
  check := false;
  for i := 1 to n do
  begin
    a[i].c := random(5) + 1;
    a[i].v := random(100)  + 1;
    writeln('Пассажир ' , i, ' везет ' , a[i].c, ' вещей общим весом ', a[i].v);
    if (a[i].c = 1) and (a[i].v >= 30) then
      check := true;
  end;
  if check then

    writeln('Есть пассажир с единственной вещью массой не менее 30 кг')

  else

    writeln('Нету пассажира с единственной вещью массой не менее 30 кг');

end.