Учебно-методические комплексы

РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив чисел
у - количество символов в массиве чисел
z - количество чисел, кратных 8
S – среднее арифметическое чисел, кратных 8

var
х: array [1..100] of integer;
S,y: integer;
begin
S:= 0;
y:= 0;
write('Сколько чисел в массиве (не более 100 ');
readln (y);

write('Введите целые числа не превышают 300 (0 – признак окончания ввода, не входит в последовательность ');
for i:=1 to у do
begin
readln (х[i]);
if (x[i] mod 8 = 0) then begin S := S + x[i]; z:=z+1; end;
if (x[i] = 0) then i:=y;
end;
S: = S/z;
if y>0 then writeln(S) else writeln('NO');
end.

РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив чисел
у - количество символов в массиве чисел
z - количество двузначных чисел
S – среднее арифметическое двузначных чисел

var
х: array [1..100] of integer;
S,y: integer;
begin
S:= 0;
y:= 0;
write('Сколько чисел в массиве (не более 100 ');
readln (y);

write('Введите целые числа не превышают 300 (0 – признак окончания ввода, не входит в последовательность ');
for i:=1 to у do
begin
readln (х[i]);
if (x[i] > 9) and (x[i] < 100) then begin S := S + x[i]; z:=z+1; end;
if (x[i] = 0) then i:=y;
end;
S: = S/z;
if y>0 then writeln(S) else writeln('NO');
end.

РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив чисел
a, b – концы отрезка
S - выходные данные

var
х: array [1..1000] of integer;
S,y: integer;
begin
S:= 0;
write('Введите целые числа не превышают 30000 ');
readln (a);
readln (b);
a:=a-1;
for i:=a to b do
begin
х[i] = a+1;
if (x[i] mod 2 = 0) then S := S+1;
end;

writeln(' количество чётных натуральных чисел на отрезке [a, b]',S)
end.

РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив чисел
у - количество символов в массиве чисел
z - количество двузначных чисел
S – среднее арифметическое трехзначных чисел

var
х: array [1..100] of integer;
S,y: integer;
begin
S:= 0;
y:= 0;
write('Сколько чисел в массиве (не более 100 ');
readln (y);

write('Введите целые числа не превышают 300 (0 – признак окончания ввода, не входит в последовательность ');
for i:=1 to у do
begin
readln (х[i]);
if (x[i] > 99) and (x[i] < 1000) then begin S := S + x[i]; z:=z+1; end;
if (x[i] = 0) then i:=y;
end;
S: = S/z;
if y>0 then writeln(S) else writeln('NO');
end.