2,3 и 4.хоть одну помогите пожалуйстаааа!!!!буду очень благодарна!всё что попросите.

+ 0 -

сравик

14 апр. 2014 г., 3:39:55 (10 лет назад)

var
  a : array [1..50] of integer;
  i, max : integer;
begin
  randomize;
  max := -30000;
  for i := 1 to 50 do
begin
  a[i] := random (1000);
  write (a[i], ' ');
if a[i] > max then max := a[i];
end;
writeln;
writeln (max);
end.

var
  a, b, c : array  [0..16] of integer;
  ch : char;
  i : integer;
begin
  for i := 1 to 15 do
  begin
    read (ch);
    a[i] := ord (ch) - ord ('0');
  end;
  readln;
  for i := 1 to 15 do
  begin
    read (ch);
    b[i] := ord (ch) - ord ('0');
  end;
for i := 15 downto 0 do
begin
  c[i] := a[i] + b[i] + (c[i+1] div 10);
end;
if c[0] <> 0 then write (c[0]);
for i := 1 to 15 do
  write (c[i] mod 10);
  end.

var
  arr : array [1..50] of integer;
  i, k, j : integer;
begin
  randomize;
  for i := 1 to 50 do
begin
  arr[i] := random (1000);
  write (arr[i], ' ');
end;
writeln;
for i := 1 to 49 do
  for j := 1 to 50-i do
    if arr[j] > arr[j+1] then
    begin 
      k := arr[j];
      arr[j] := arr[j+1];
       arr[j+1] := k
end;
for i := 1 to 50 do write (arr[i], ' ');

+ 0 -

Lesua2001

14 апр. 2014 г., 5:50:41 (10 лет назад)

в паскале

+ 0 -

Zakhar96

14 апр. 2014 г., 7:12:09 (10 лет назад)

я попрошу когда тебе ответят, а тебе ответят либо я либо emblerik, выучи)))