Помогите пж умоляю
1 Дана программа нахождения суммы 6 элементов массива:
На Интале На Паскале Комментарии
Программа summa
Описание
A:Массив [6] Целый
i, s:Целый
Конец_Описания
s:=0;
a[1]:=5
a[2]:=-1
a[3]:=7
a[4]:=13
a[5]:=-8
a[6]:=21
Повторять
_ДляiОт 1 До 6
s:=s+A[i]
Завершить
Вывод (s)
Конец_Программы const a = array [1..6] of
integer = (5,-1,7,13,-8,21)
var i, s: integer;
begin
s:=0;
for i:= 1 to 6 do
s:= s+a[i];
writeln ( s )
end.
На Интале элементы последовательности вводятся присваиванием (можно с помощью цикла), на Паскале – можно вводить, используя раздел описания const.
В цикле меняется i–номер элемента массива, одновременно находим s –сумму элементов последовательности.
Полученное значение выводим на экран.
а) изменить программу так, чтобы она находила среднее арифметическое чисел, входящих в массив.
б) изменить программу так, чтобы она находила сумму N элементов массива (N не должно превышать количества элементов, заявленных в разделе CONST). N вводить с помощью оператора readln(N).
2 Найти сумму положительных элементов массива, добавив структуру :
Еслиа [i ]>0
то S:= S+а [i ]
if а [ i ] > 0 then S:= S+а [i ]
Конец_Если
3. В массиве из N элементов найти количество нулевых элементов массива.
4 В массиве из N элементов найти количество нулевых элементов массива, сумму отрицательных и произведение положительных элементов массива.
5 Юноши выпускного класса решили заказать костюмы для выпускного бала. Они должны принести в ателье таблицу с указанием роста каждого. Для ателье эта работа будет выгодной, если эти данные лежат в пределах от 160 до 180см. Вывести сообщение, выгодна ли эта работа для ателье.
program _1;
const
A:array[1..6] of integer = (5, -1, 7, 13, -8, 21);
var
i, s:integer;
begin
s := 0;
for i := 1 to 6 do
s := s + A[i];
writeln(s);
readln;
end.
program _1a;
const
A:array[1..6] of integer = (5, -1, 7, 13, -8, 21);
var
i, s:integer;
begin
s := 0;
for i := 1 to 6 do
s := s + A[i];
writeln((s / 6):0:3);
readln;
end.
program _1b;
const
N = 6;
A:array[1..N] of integer = (5, -1, 7, 13, -8, 21);
var
i, k, s:integer;
begin
repeat
readln(k);
until (0 < k) and (k <= N);
s := 0;
for i := 1 to k do
s := s + A[i];
writeln(s);
readln;
end.
program _2;
const
A:array[1..6] of integer = (5, -1, 7, 13, -8, 21);
var
i, s:integer;
begin
s := 0;
for i := 1 to 6 do
if A[i] > 0 then
s := s + A[i];
writeln(s);
readln;
end.
program _3;
const
N = 6;
A:array[1..N] of integer = (5, 0, 7, 13, 0, 21);
var
i, c:integer;
begin
c := 0;
for i := 1 to N do
if A[i] = 0 then
c := c + 1;
writeln(c);
readln;
end.
program _4;
const
N = 6;
A:array[1..N] of integer = (-5, 0, 7, -13, 0, 21);
var
i, c, s, p:integer;
begin
p := 1;
c := 0;
s := 0;
for i := 1 to N do
begin
if A[i] = 0 then
c := c + 1;
if A[i] <= 0 then
s := s + A[i]
else
p := p * A[i];
end;
writeln('count of zero:', c);
writeln('sum of negative:', s);
writeln('product of positive:', p);
readln;
end.
program _5;
const
N = 10;
A:array[1..N] of integer =
(160, 170, 165, 150, 180, 172, 175, 154, 178, 173);
var
i:integer;
begin
for i := 1 to N do
if (160 > A[i]) or (A[i] > 180) then
begin
writeln('Нет');
readln;
halt;
end;
writeln('Да');
readln;
end.
Правильно