задача1. Подсчитать сумму всех элементов массива, введенных с клавиатуры
Program ufhueefh;
var B:array [1..5] of integer;
s,i:integer;
Begin
s:=0;
for i:=1 to 5 do
read (B[i]);
for i:=1 to 5 do
s:=s+B[i] ;
writeln (s);
end.
Задача2. Подсчитать сумму четных элементов массива, введенных с клавиатуры.
Program uhh;
var B:array [1..5] of integer;
s,i:integer;
Begin
s:=0;
for i:=1 to 5 do
read (B[i]);
for i:=1 to 5 do if b[i] mod 2=0 then s:=s+B[i] ;
writeln (s);
end.
Задача3. Подсчитать сумму нечетных элементов массива, введенных с клавиатуры.
Program uhh;
var B:array [1..5] of integer;
s,i:integer;
Begin
s:=0;
for i:=1 to 5 do
read (B[i]);
for i:=1 to 5 do if b[i] mod 2=1 then s:=s+B[i] ;
writeln (s);
end.
Program ufhueefh;
var B:array [1..5] of integer;
s,i:integer;
Begin
s:=0;
for i:=1 to 5 do
read (B[i]);
for i:=1 to 5 do
s:=s+B[i] ;
writeln (s);
end.
Задача2. Подсчитать сумму четных элементов массива, введенных с клавиатуры.
Program uhh;
var B:array [1..5] of integer;
s,i:integer;
Begin
s:=0;
for i:=1 to 5 do
read (B[i]);
for i:=1 to 5 do if b[i] mod 2=0 then s:=s+B[i] ;
writeln (s);
end.
Задача3. Подсчитать сумму нечетных элементов массива, введенных с клавиатуры.
Program uhh;
var B:array [1..5] of integer;
s,i:integer;
Begin
s:=0;
for i:=1 to 5 do
read (B[i]);
for i:=1 to 5 do if b[i] mod 2=1 then s:=s+B[i] ;
writeln (s);
end.
Комментариев нет:
Отправить комментарий