ОООЧЕНЬ НУЖНА ПОМОЩЬ! НУЖНО НАПИСАТЬ ПРОГРАММЫ (ХОТЯ БЫ ДВЕ,ПОЖАЛУЙСТА) В ПАСКАЛЕ ABC!
1. Дан массив. Все элементы уменьшить на число a.
2. Дан массив целых чисел. Верно ли,что сумма элементов массива есть четное число.
3. В массиве хранятся сведения о количестве осадков,выпавших за каждый день января. Определить общеее количество осадков за месяц и среднее количество за день.
2. Найти сумму чисел массива в переменной Sum, а потом:
Writeln(Сумма элементов массива чётное число = , not odd(Sum));
1.
var m:array[1..100] of integer; i,a,n:integer;beginwrite(Введите размерность массива: );readln(n);write(Введите число А: );readln(a);writeln(Введите массив: );for i:=1 to N doreadln(m[i]);writeln(Массив: );for i:=1 to N doM[i]:=m[i]-a;for i:=1 to N dowrite(M[i], );end.Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
