Задать вопрос
9 апреля, 22:40

Задача №1

Заполнить массив размерностью 20 случайным образом числами от 0 до 150. Найти сумму максимального и минимального элементов массива.

Задача №2

Заполнить матрицу размером 5 х5 случайными числами от 0 до 200. Найти сумму элементов массива побочной диагонали.

+2
Ответы (1)
  1. 10 апреля, 02:08
    0
    1)

    var a:array[1 ... 20] of integer;

    max, min, n, i:integer;

    begin

    randomize;

    n:=20;

    for i:=1 to n do a[i]:=random (150) ;

    begin

    min:=a[1];

    for i:=1 to n do if a[1]>a[i] then min:=a[i];

    end;

    begin

    max:=a[1];

    for i:=1 to n do if a[1]
    end;

    writeln (min) ;

    writeln (max) ;

    end.

    2)

    const n=5;

    var x: array[1 ... n, 1 ... n] of integer;

    i, j, s: integer;

    begin

    randomize;

    writeln ('Matrisa:') ;

    for i:=1 to n do

    begin

    for j:=1 to n do

    begin

    x[i, j]:=random (200) ;

    write (x[i, j]:5) ;

    end;

    writeln

    end;

    j:=8;

    for i:=1 to n do

    begin

    j:=j-1;

    s:=s+x[i, (n+1-i) ];

    end;

    writeln ('Summa: ', s) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задача №1 Заполнить массив размерностью 20 случайным образом числами от 0 до 150. Найти сумму максимального и минимального элементов ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы