Другие языки программирования и технологии

помогите, пожалуйста, написать программы в PascalABC

1.Дана матрица D(8x8), элементами которой являются целые числа. Преобразовать исходную матрицу D(8x8),определив в каждой строке max и min элементы, после чего поменять их местами. На монитор вывести исходную матрицу D(8x8) и измененную матрицу В (8х8).
2. Сформировать двумерный массив C размером N x 5 (N – количество строк, равное предпоследней цифре пароля +2; 5 – количество столбцов) с помощью генератора случайных чисел и вывести элементы массива на экран и в файл. Вычислить сумму положительных элементов в каждой строке матрицы C (оформить вычисление сумм в виде процедуры) . Из полученных сумм составить одномерный массив D. Вывести элементы массива D на экран и в файл.
3. Дана матрица n*n. Получить массив x1,x2...xn по правилу xi=0, если все элементы i го столбца и i ой строки меньше 1, иначе xi=1. найти также произведение всех элементов матрицы
ВТ
Виктор Топузов
283
1.

var
    d: array [1..8, 1..8] of integer;
    i, j, jmax, jmin, t: integer;
begin
    randomize;
    writeln('matrix:');
    for i := 1 to 8 do
    begin
        for j := 1 to 8 do
        begin
            d[i, j] := random(100);
            write(d[i, j]:3);
        end;
        writeln;
    end;
    for i := 1 to 8 do
    begin
        jmax := 1;
        jmin := 1;
        for j := 2 to 8 do
        begin
            if d[i, j] > d[i, jmax] then jmax := j;
            if d[i, j] < d[i, jmin] then jmin := j;
        end;
        writeln('row: ', i, '; max: a[', i, ',', jmax, '] = ', d[i, jmax],
                        '; min: a[', i, ',', jmin, '] = ', d[i, jmin]);
        t := d[i, jmax];
        d[i, jmax] := d[i, jmin];
        d[i, jmin] := t;
    end;
    writeln('result:');
    for i := 1 to 8 do
    begin
        for j := 1 to 8 do write(d[i, j]:3);
        writeln;
    end;
end.

Остальное не поместится. Слишком много заданий для одного вопроса.
Салават Гумеров
Салават Гумеров
50 904
Лучший ответ
задачи решаемые, когда надо сдавать? , пиши, договоримся
Саня Карпов
Саня Карпов
95 932

Похожие вопросы