Даю 30!!1.Масив А[1..5] заповнено числами 3, 8, 5, 7, 6. Виконайте дії з елементами масиву: a) For i:=1 to 5 do A[i] := -A[i];
6) For i:=1 to 5 do
If A[i] mod 3 = 0 Then A[i] := A[i] div 3;
B) For i := 1 to 5 do
If i mod 2 = 0 Then A[i] := 0;
r) S:= 0; For i:= 1 to 5 do S:= S + A[i];
A) P := 1; For i := 1 to 5 do If A[i] <= 5 Then P := P * A[i];
e) K := 0; For i = 1 to 5 do If A[i] > 5 Then K:= K + 1;​

Сергей1901    1   26.04.2021 15:43    0