• В двухмерном массиве А(7,7) случайных чисел из диапазона (-10..10) найти:
    1. Минимальный элемент в 7 столбце
    2. Сумму элементов 1 строки
    3. Среднее значение 5 столбца
    4. Количество нечетных элементов массива
    5. Заменить элементы 1 столбца на единицы.

Ответы 1

  • program q;    var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real;begin;    randomize;    for i:=1 to 7 do begin;        for k:=1 to 7 do begin;            a[i,k]:=random(-10,10);            if a[i,k] mod 2 = 1 then odd+=1;        end;    end;    min7:=a[1,7];    for i:=1 to 7 do if a[7,i]<min7 then min7:=a[i,7];    for i:=1 to 7 do sum1+=a[i,1];    for i:=1 to 7 do avg5+=a[5,i];    avg5/=7;    for i:=1 to 7 do a[1,i]:=1;    write('Минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd);end.
    • Автор:

      cirortxb
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years