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

+ 0 -

2902001626

11 окт. 2014 г., 18:05:47 (9 лет назад)

Решение первой задачи 

program test;
uses crt;
const n=5;
var a: array [1..n, 1..n] of integer;
i,j,min: integer;
begin
clrscr;
for j:=1 to n do begin
writeln ('Введите элементы ',j, ' строки массива');
for i:=1 to n do
readln (a [i,j]);
end;
for j:=1 to n do begin
writeln ();
for i:=1 to n do
write (' ',a [i,j]);
end;
writeln ();
writeln ('Результат');
for j:= 1 to n do begin
min:=a[1,j];
for i:=2 to n do
if a[i,j]<a[1,j] then
begin
min:=a[i,j];
end;
writeln ('Минимальный элемент ',j,' строки равен ',min);
end;
end.

 2 задача

program test;
var a: array of integer;
n,i,t,c,min,max: integer;
begin
writeln ('Введите размерность массива');
readln (n);
setlength (a,n+1);
for i:=1 to n do begin
writeln ('Введите ', i, ' элемент массива');
readln (a[i]);
end;
c:=1;
while c=1 do begin
c:=0;
for i:= 1 to n-1 do begin
if a[i]>a[i+1] then begin t:=a[i]; a[i]:=a[i+1]; a[i+1]:=t; c:=1;
end;
end; end;
for i:=1 to n do
write (a[i],' ');
writeln ();
writeln ('Наибольший элемент массива ', a[n]);
writeln();
writeln ('Наименьший элемент массива ', a[1]);
end. 

+ 0 -

Вось

11 окт. 2014 г., 18:37:33 (9 лет назад)

Program nana05_1;
uses crt;
const n=5;
var
  a:array[1..n,1..n] of real;
  i,j: integer;
  min: real;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Введите массив.');
  for i:=1 to n do
    begin
      writeln(i,'-я строка:');
        for j:=1 to n do
          begin
            write(j,'-й элемент:'); readln(a[i,j]);
          end;
    end;
  clrscr;
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:7:2);
      writeln();
    end;
  writeln();
  writeln('Результат');
  for j:=1 to n do
    begin
      min:=a[1,j];
      for i:=1 to n do
          begin
            if min>a[i,j] then min:=a[i,j];
          end;
      writeln('Минимальный элемент столбца ',j,' равен ',min)
    end;
end.

Program nana05_2;
uses crt;
var
  a:array[1..100] of real;
  i,j,n: integer;
  temp: real;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Введите размерность массива'); readln(n);
  writeln('Введите массив.');
  for i:=1 to n do
    begin
      write(i,'-й элемент:'); readln(a[i]);
    end;
  clrscr;
  for i:=1 to n do
      write(a[i]:7:2);
  writeln();
  writeln('Результат');
  for i:=1 to n-1 do
    begin
      for j:=1 to n-i do
        if a[j]>a[j+1] then
          begin
            temp:=a[j];
            a[j]:=a[j+1];
            a[j+1]:=temp;
          end;
    end;
    for i:=1 to n do
      write(a[i]:7:2);
  writeln();
  writeln('Минимальный элемент массива равен ',a[1]:7:2) ;
  writeln('Максимальный элемент массива равен ',a[n]:7:2) ;
end.