Разработать схему алгоритма, который запрашивает массив из N целых чисел, а затем складывает все элементы с нечётными номерами и все элементы с чётными номерами и выводит на экран сообщение о том, чья сумма больше
Const m=5; n=8; var b:array[1..m,1..n] of integer; i,j,ko,sp:integer; begin Randomize; ko:=0; sp:=0; for i:=1 to m do for j:=1 to n do begin b[i,j]:=Random(51)-20; if b[i,j]>0 then sP:=sp+b[i,j] else if b[i,j]<0 then Inc(ko) end; Writeln('Сумма положительных элементов равна ',sp); Writeln('Количество отрицательных элементов равно ',ko); Writeln('Исходный массив'); for i:=1 to m do begin for j:=1 to n do Write(b[i,j]:4); Writeln end end.
Пример работы программы Сумма положительных элементов равна 382 Количество отрицательных элементов равно 13 Исходный массив -6 13 10 2 -14 14 28 28 5 7 26 -8 26 24 7 27 15 -9 -13 28 4 12 9 -12 -2 -9 20 10 -16 8 -10 2 30 -10 -9 -10 2 2 0 23
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку