Const n = 50; k= 50;var A:Array[1..n,1..k] of integer;i,j,mn,mk,z,sum,v:integer;beginwrite('Введите n'); readln(mn);write('Введите k'); readln(mk);for i:= 1 to mn dobeginfor j:= 1 to mk dobeginA[i,j]:= random(100)-50;write(A[i,j]:5)end;writeln;end;writeln;writeln('Суммы элементов массива в стобце');for i:= 1 to mn dobeginfor j:= 1 to mk dobeginfor z:= 1 to mn dobeginif z <> i thenbeginsum:= sum + A[z,j];end;end;if A[i,j] > sum then v:=v +1;write(sum:5);sum:=0;end;writeln;end;write('Число особых элементов массива = ',v);end.
begin Writeln('Введите количество элементов в массиве (n<51): '); Readln(n); Writeln('Введите элементы массива'); s:=0; for i := 1 to n do begin Read(T[i]); if T[i]<0 then s := s + T[i] end; Writeln('Сумма отрицательных элементов массива равна ', s) end.
Тестовое решение: Введите количество элементов в массиве (n<51): 10 Введите элементы массива 5 -6 2 0 4 11 -8 0 1 -2 Сумма отрицательных элементов массива равна -16
таблица умножения
программа телепередач
телефонный справочник
прогноз погоды
меню в столовой