Задать таблицу из 5 строк и 5 столбцов, состоящую из случайных чисел (интервал от 1 до 50). А). Найти сумму чисел в каждом столбце ИЛИ Б). Найти наибольшее число в каждой строке
Так как конкретной программы не дано, напишу на Питоне
Программа, где массив вводится вручную и выполняются поставленные условия во вложении
Если имеется уже готовый массив, то во 2-ой строке заполнить все его элементы и удалить 4 и 5-ую строки.
Как это работает?a - сам массивminimum - контр значение с которым будем сравнивать эл-ты4 и 5 строкой заполняем массив 40 эл-ми вручную6 и 7 строками проверяем каждый эл-т по поставленному условию8 строка - присваиваем число минимуму9 - 12 выводим ответ, проверяя, изменился ли эл-т minimum с начала программы, если да - выводим его, нет - выводим 0
Так как конкретной программы не дано, напишу на Питоне
Программа, где массив вводится вручную и выполняются поставленные условия во вложении
Если имеется уже готовый массив, то во 2-ой строке заполнить все его элементы и удалить 4 и 5-ую строки.
Как это работает?a - сам массивminimum - контр значение с которым будем сравнивать эл-ты4 и 5 строкой заполняем массив 40 эл-ми вручную6 и 7 строками проверяем каждый эл-т по поставленному условию8 строка - присваиваем число минимуму9 - 12 выводим ответ, проверяя, изменился ли эл-т minimum с начала программы, если да - выводим его, нет - выводим 0ответ: Pascal ABC.Net
Program Zadacha;
var a,b:array[1..1000] of integer;
n, i, max:integer;
BEGIN
write('Задайте количество элементов массива N<1000: ');
read(n);
max:=-30000;
for i:=1 to n do
begin write('Задайте ',i,'-й элемент массива: ');
read(a[i]);
if a[i]>max then max:=a[i];
end;
for i:=1 to n do
begin b[i]:=a[i]*max;
writeln(b[i]);
end;
END.
Объяснение: