Одномерные массивы. Дан массив натуральных чисел, состоящий из n элементов. Найт...

July 2022 1 7 Report

Одномерные массивы.
Дан массив натуральных чисел, состоящий из n элементов. Найти сумму элементов массива, кратных данному числу К.

Answers & Comments

mailikey1 Uses crt;
Const n = 10;
Var a: array[1..n] of integer;
i: byte;
sum: integer;
Begin
ClrScr;
  For i:=1 to n do
  Begin
Write('a[',i,'] = ');
  ReadLn(a[i]);
End;
ClrScr;
For i:=1 to n do
write(a[i],' ');
  WriteLn;
  For i:=1 to n do
  If a[i] mod 2 = 0 then inc(sum,a[i]);
  WriteLn('сумма элементов, кратных двум: ',sum);
ReadKey
End.( вот например кратный двум...аналогично)

0 votes Thanks 2

Answers & Comments

pomogite pozhalujstab0ee97397bed0f9d97478e07ca0e7e7e 93596

sdelajte chto nibud iz 3 4 5 pozh

pervoe pomogite pozhalujstac84c9aa9fa93f522b65de96d41dd1550 8889

najdite znachenie vyskazyvaniya s 36gt10 zhelatelno podrobno raspisat

sochinenie na temuktualnost proizvedeniya slovo o polku igoreve

kakoj obem kisloroda potrebuetsya dlya sgoraniya 200g tehnicheskogo allyuminiyasoder

odnomernye massivy dan massiv naturalnyh chisel sostoyashij iz n elementov najt12346bba02b2f0bafe38172e82b68d56 762

odnomernye massivy variant 1 1 dan massiv celyh chisel sostoyashij iz 20 element

mne nuzhno napisat sochinenie na lingvisticheskuyu temu po etomu vyskazyvaniyu pun

reshite pozhalujsta v paskale722d5f8dc4d1cdbc0453af64b4319a1a 74441

рекомендуемые вопросы

Helpful Links

Helpful Social