понедельник, 16 октября 2017 г.

Урок 16 октября. Арифметические действия

задача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.

Комментариев нет:

Отправить комментарий