Результат работы в группах на уроке информатики. 10 класс.

Программа команды Ивонтьева Кости (подсчет произведения четных)

program a1;
uses crt;
var a:array[1..5] of integer;
p:real;
i:byte;
begin
p:=1;
for i:=1 to 5 do
begin
writeln(‘введите’,i,’-й эл-т’);
readln(a[i]);
if a[i] mod 2 =0 then
p:=p*a[i];
end;
if p=1 then
writeln(‘0’)
else
writeln(p);
readkey;
end.

Программа команды Алексеева Кости (подсчет суммы положительных)

program a1;
uses crt;
var a:array[1..5] of real;
i:byte;
sum:real;
begin
sum:=0;
for i:=1 to 5 do
begin
writeln(‘введите’,i,’-й символ’);
readln(a[i]);
if a[i]>0 then
sum:=sum+a[i];
end;
writeln(‘сумма=’,sum);
readkey;
end.

Программа команды Елистратовой Ульяны (подсчет количества нулевых)

Program a1;
uses crt;
Var a:array[1..5] of real;
i,k:byte;
begin
k:=0;
for i:=1 to 5 do
begin
writeln(‘введите ‘,i,’-й элемент’);
readln(a[i]);
if a[i]=0 then
k:=k+1;
end;
writeln(‘количество нулевых значений =’,k);
readkey;
end.

Программа команды «трех богатырей» (замена 0 на 1, если они есть)

Program RP;
uses crt;
var a:array[1..5] of real;
i:byte;
begin
for i:=1 to 5 do
begin
writeln(‘Введите число’);
readln(a[i]);
if a[i]=0 then
a[i]:=1;
end;
for i:=1 to 5 do
write(a[i], ‘ ,’);
readkey;
end.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

В целях безопасности нам нужно проверить не робот ли вы * Лимит времени истёк. Пожалуйста, перезагрузите CAPTCHA.