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

РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив температур
N - количество дней, в течение которых проводилось наблюдение
S - количество дней, когда температура поднималась выше нуля градусов
Z - выходные данные

var
х: array [1..31] of integer;
S,N,Z: integer;
begin
S:= 0;
Z:= 0;
write('Количество дней, в течение которых проводилось наблюдение N (1 ≤ N ≤ 31) ');
readln (N);
write('Введите температуру ');
for i:=1 to N do
begin
write('х[', i,']=');
readln (х[i]);
end;
for j:=1 to N do
begin
if (x[j] > 0) and (x[j] >= 5) then S := S + 1;
Z:=Z+x[j];
end;
Z:=Z/N;
writeln(Z);
if S>=5 then writeln('YES') else writeln('NO');
end.

РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив количества решенных заданий
N - количество учеников в классе
S - количество учеников, решивших все задания
Z - количество неудовлетворительных оценок

var
х: array [1..30] of integer;
S,N,Z: integer;
begin
S:= 0;
Z:= 0;
write('Количество учеников в классе N (1 ≤ N ≤ 30) ');
readln (N);
write('Введите количество решенных заданий ');
for i:=1 to N do
begin
write('х[', i,']=');
readln (х[i]);
end;
for j:=1 to N do
begin
if (x[j] = 10) then S := S + 1;
if (x[j] <5) then Z := Z + 1;
end;
writeln(Z);
if S>0 then writeln('YES') else writeln('NO');
end.

РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив температур
N - количество дней, в течение которых проводилось наблюдение
S - количество дней, когда температура опускалась ниже –15 градусов
Z - самая низка температура

var
х: array [1..31] of integer;
S,N,Z: integer;
begin
S:= 0;
Z:= 50;
write('Количество дней, в течение которых проводилось наблюдение N (1 ≤ N ≤ 31) ');
readln (N);
write('Введите температуру ');
for i:=1 to N do
begin
write('х[', i,']=');
readln (х[i]);
end;
for j:=1 to N do
begin
if (x[j] < Z) then Z := x[j];
if (x[j] < -15) then S := S+1;
end;

writeln(Z);
if S>0 then writeln('YES') else writeln('NO');
end.

РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив температур
N - количество дней, в течение которых проводилось наблюдение
S - количество дней, когда температура поднималась выше нуля градусов
Z - средняя температура в дни когда поднималась выше нуля градусов

var
х: array [1..31] of integer;
S,N,Z: integer;
begin
S:= 0;
Z:= 0;
write('Количество дней, в течение которых проводилось наблюдение N (1 ≤ N ≤ 31) ');
readln (N);
write('Введите температуру ');

for i:=1 to N do
begin
write('х[', i,']=');
readln (х[i]);
end;

for j:=1 to N do
begin
if (x[j] > 0) then Z := Z + x[j];
if (x[j] > 0) then S := S+1;
end;

Z: = Z/S;
writeln(Z);
writeln(S);
end.