1. Apache16.03.2025 в 03:04от
  2. D1zo16.03.2025 в 01:11от
Загрузка...

Pascal нужна помощь

Тема в разделе "Программирование", создана пользователем Maver, 19.11.2013.

  1. Maver

    Maver

    Статус:
    Оффлайн
    Регистрация:
    24.09.13
    Сообщения:
    49
    Репутация:
    7 +/-
    1) Двумерные массивы
    Дана квадратная матрица (5*5). Заполнить ее случайными целыми числами и вывести на экран в виде таблицы. Заменить все элементы матрицы, расположенные выше главной диагонали на 1, ниже главной диагонали -0. Главную диагональ оставить без изменения. Вывести на экран полученную матрицу.

    2) Дан двумерный массив целых чисел(4*5).
    Заполнить его случайными числами и вывести на экран в виде таблицы. Найти минимальный элемент массива и количество элементов, равных минимальному.

    3) Дана квадратная матрица (4*4). Заполнить ее случайными целыми числами и вывести на экран в виде таблицы. Найти произведение всех ненулевых элементов главной и побочной диагоналей.
     
    Последнее редактирование: 19.11.2013
  2. Maver

    Maver

    Статус:
    Оффлайн
    Регистрация:
    24.09.13
    Сообщения:
    49
    Репутация:
    7 +/-
    up
     
  3. f4nk

    f4nk

    Статус:
    Оффлайн
    Регистрация:
    11.12.13
    Сообщения:
    10
    Репутация:
    1 +/-
    ну и в чем проблема? двумя циклами(i,j) через рандомайз заполняешь массив, потом темже циклом если i>j, то 1, иначе 0.
     
  4. Артём112

    Артём112

    Статус:
    Оффлайн
    Регистрация:
    15.01.13
    Сообщения:
    46
    Репутация:
    14 +/-
    если напишу эт на с# переведешь в паскаль?
     
  5. Amingin1936

    Amingin1936

    Статус:
    Оффлайн
    Регистрация:
    02.07.14
    Сообщения:
    31
    Репутация:
    2 +/-
    1)
    #include <stdio.h>
    int main(void)
    {
    int t,i, num[5][5];
    /* загрузка чисел */
    for(t=0; t<5; ++t)
    for (i=0; i<5; ++i)
    num[t] = (t*5)+i+1;

    /* вывод чисел */
    for (t=0; t<3; ++t)
    {
    for (i=0; i<4; ++i)
    printf("%d ",num[t]);
    printf ("\n");
    }

    /* замена чисел */
    for(t=0; t<5; ++t)
    for (i=0; i<5; ++i)
    if (i>t)
    num[t] = 1;
    else
    num[t] =0;
    /* вывод чисел */
    for (t=0; t<3; ++t)
    {
    for (i=0; i<4; ++i)
    printf("%d ",num[t]);
    printf ("\n");
    }
    return 0;
    }
     
  6. Amingin1936

    Amingin1936

    Статус:
    Оффлайн
    Регистрация:
    02.07.14
    Сообщения:
    31
    Репутация:
    2 +/-
    Дальше по примеру сможешь?
    Для паскаля тут посмотри
    www_pascal.helpov_net
     
  7. Mohman

    Mohman

    Статус:
    Оффлайн
    Регистрация:
    25.08.13
    Сообщения:
    85
    Репутация:
    14 +/-
    2).
    var
    a : array [1..5,1..5] of longint;
    min,i,j,k : longint;
    begin
    randomize;
    for i:=1 to 5 do
    for j:=1 to 5 do a[i,j]:=random(100);
    for i:=1 to 5 do
    begin
    for j:=1 to 5 do write(a[i,j],' ');
    writeln;
    end;
    min:=maxlongint;
    for i:=1 to 5 do
    for j:=1 to 5 do
    if a[i,j]<min then min:=a[i,j];
    for i:=1 to 5 do
    for j:=5 to 5 do
    if a[i,j]=min then inc(k);
    writeln('Min : ',min);
    writeln('Count : ',k);
    end.