Одномерные массивы. Дан массив натуральных чисел, состоящий из n элементов. Найти сумму элементов массива, кратных данному числу К.
Answers & Comments
mailikey1Uses 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.( вот например кратный двум...аналогично)
Answers & Comments
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.( вот например кратный двум...аналогично)