ОООЧЕНЬ НУЖНА ПОМОЩЬ! НУЖНО НАПИСАТЬ ПРОГРАММЫ (ХОТЯ БЫ ДВЕ,ПОЖАЛУЙСТА) В ПАСКАЛЕ ABC! 1....

0 голосов
21 просмотров

ОООЧЕНЬ НУЖНА ПОМОЩЬ! НУЖНО НАПИСАТЬ ПРОГРАММЫ (ХОТЯ БЫ ДВЕ,ПОЖАЛУЙСТА) В ПАСКАЛЕ ABC!

1. Дан массив. Все элементы уменьшить на число a.

2. Дан массив целых чисел. Верно ли,что сумма элементов массива есть четное число.

3. В массиве хранятся сведения о количестве осадков,выпавших за каждый день января. Определить общеее количество осадков за месяц и среднее количество за день.


Информатика (25 баллов) | 21 просмотров
Дан 1 ответ
0 голосов

2. Найти сумму чисел массива в переменной Sum, а потом: 
Writeln('Сумма элементов массива чётное число = ', not odd(Sum));

1.

  var m:array[1..100]ofinteger;         i,a,n:integer; beginwrite('Введите размерность массива: ');readln(n); write('Введите число А: ');readln(a); writeln('Введите массив: '); for i:=1to N doreadln(m[i]); writeln('Массив: '); for i:=1to N do M[i]:=m[i]-a; for i:=1to N dowrite(M[i],' '); end.
(98 баллов)