ПОМОГИТЕ!ПОЖАЛУЙСТА!ОЧЕНЬ Безотлагательно!ИНФОРМАТИКА!Решить в Паскале три задачки:1) Дан двумерный

ПОМОГИТЕ!ПОЖАЛУЙСТА!ОЧЕНЬ СРОЧНО!ИНФОРМАТИКА!
Решить в Паскале три задачи:
1) Дан двумерный массив, отыскать количество отрицательных частей.
2) Дан двумерный массив. Поменять все элементы над основной диагональю на 100.
3) Дан двумерный массив. Поменять местами верхнюю половину строк с нижней.

Задать свой вопрос
1 ответ
Const
   N = 4;
Var
   A:array[1..N,1..N] of integer;
   i,j,k:integer;
Begin
Randomize;
WriteLn('1)');
k:=0;
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ');
        if A[i,j] lt; 0 then k:=k+1;
        End;
    WriteLn
    End;
WriteLn('k = ',k);
WriteLn('2)');
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Begin
        if j gt; i then A[i,j]:=100;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
WriteLn('3)');
For i:= 1 to N div 2 do
    Begin
    For j:= 1 to N do
        Begin
        k:=A[i+N div 2,j];
        A[i+N div 2,j]:=A[i,j];
        A[i,j]:=k;
        End
    End;
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Write(A[i,j]:3,' ');
    WriteLn
    End;
End.


1)
 10   2  -9   4
-10   5  -5 -10
  4   9   4  10
  3  -9  10  -6
k = 6
2)
 10 100 100 100
-10   5 100 100
  4   9   4 100
  3  -9  10  -6
3)
  4   9   4 100
  3  -9  10  -6
 10 100 100 100
-10   5 100 100
Дацкевич Кристина
Вы клд сами поделить не можете?
Ден Меленевский
код*
Софья
нет((
Карина
Хорошо, сейчас сделаю
Алина Туль
спасибо громадное:))
Василиса Хлюстина
Const N = 4;Var A:array[1..N,1..N] of integer; i,j,k:integer;BeginRandomize;WriteLn('1)');k:=0;For i:= 1 to N do Begin For j:= 1 to N do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' '); if A[i,j] < 0 then k:=k+1; End; WriteLn End;WriteLn('k = ',k);End.
Александр Слагаев
Const N = 4;Var A:array[1..N,1..N] of integer; i,j:integer;BeginRandomize;WriteLn('2)');WriteLn('До:');For i:= 1 to N do Begin For j:= 1 to N do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' '); End; WriteLn End;WriteLn('После:');For i:= 1 to N do Begin For j:= 1 to N do Begin if j > i then A[i,j]:=100; Write(A[i,j]:3,' ') End; WriteLn End;End.
Диана Гацук
Const N = 4;Var A:array[1..N,1..N] of integer; i,j,k:integer;BeginRandomize;WriteLn('3)');WriteLn('До:');For i:= 1 to N do Begin For j:= 1 to N do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' '); End; WriteLn End;For i:= 1 to N div 2 do Begin For j:= 1 to N do Begin k:=A[i+N div 2,j]; A[i+N div 2,j]:=A[i,j]; A[i,j]:=k; End End;WriteLn('После:');For i:= 1 to N do Begin For j:= 1 to N do Write(A[i,j]:3,' '); WriteLn End;End.
Катя Вьючнова
спасибо больше,к лику Святых Вас!:3
Камилла Курмендская
Не за что:D
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт