[any] Pascal: (без хранения введённых чисел => "эффективная")
var a, i, x: integer; begin for i := 1 to 6 do begin read(a); if a>0 then x := x + 1 else if a<0 then x := x - 1 end; if x>0 then write('Больше положительных') else if x<0 then write('Больше отрицательных') else write('Одинаково')end.PascalABC.NET: (с хранением введённых чисел в массиве)
## var a := ReadArrInteger(6); var x := a.Sum(x -> x>0 ? 1 : -1); if x=0 then Write('Одинаково') else Print('Больше', x>0 ? 'положительных' : 'отрицательных')Пример работы:
Поделитесь своими знаниями, ответьте на вопрос:
90 напишите программу на c++ если что учусь на 1 курсе ввести с клавиатуры целочисленную матрицу размера 4x4. найти номер строки матрицы с максимальной суммой элементов.
P.S: .exe файл загрузить не удалось и если что с телефона его не скачать, только с ПК. У меня всё.