profile
Опубликовано 4 года назад по предмету Информатика от skaras1996

1. задать двумерный массив (5х5) случайными значениями от 5 до 10 включительно. В каждой строке найди количество элементов, значения которых >7.
2. задать двумерный массив (3х3) с клавиатуры, поменять значения элементов 1 строки с последней.

  1. Ответ
    Ответ дан nikolac
    1.
    uses crt;
    const n=5;
    var i,j,ans:integer;
    a:array[1..n,1..n] of integer;
    begin
    randomize;
    for i:=1 to n do
    begin
    for j:=1 to n do
    begin
    a[i,j]:=random(5,10);
    write(a[i,j],' ');
    end;
    writeln();
    end;
    for i:=1 to n do
    begin
    ans:=0;
    for j:=1 to n do
    begin
    if a[i,j]>7 then
    ans:=ans+1;
    end;
    writeln('In ',i,': ',ans);
    end;
    end.
    2.
    uses crt;
    const n=3;
    var i,j,t:integer;
    a:array[1..n,1..n] of integer;
    begin
    writeln('Input array:');
    for i:=1 to n do
    for j:=1 to n do
    read(a[i,j]);
    for j:=1 to n do
    begin
    t:=a[1,j];
    a[1,j]:=a[3,j];
    a[3,j]:=t;
    end;
    for i:=1 to n do
    begin
    for j:=1 to n do
    write(a[i,j],' ');
    writeln();
    end;
    end.
    1. Ответ
      Ответ дан skaras1996
      СПАСИБО ОГРОМЕННОЕ!!!!!!!
    2. Ответ
      Ответ дан nikolac
      На здоровье.