Дан массив, состоящий из N введенных с клавиатуры чисел. Узнать, кратна ли сумма его элементов шести.
Решение:
|
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
program arrays_2;
uses crt; var n, i, sum: integer; mas: array[1..100] of integer; begin clrscr; sum:=0; write(‘Количество элементов > ‘); read(n); for i:=1 to n do begin write(i, ‘ элемент > ‘); read(mas[i]); sum:=sum+mas[i]; end; if sum mod 6=0 then write(‘Сумма элементов кратна 6’) else write(‘Сумма элементов не кратна 6’); readkey; end. |