Самостоятельная работа по теме "Вычисление суммы элементов одномерного массива"

Проверь себя

Определите значение переменной s после выполнения следующих операторов

1. s:=0;

for i:=1 to 8 do

s:=s+a[i];

writeln (‘s=‘,s);

s:=0;

1. s:=0;

for i:=3 to 8 do

if a[i]0 then s:=s+a[i];

writeln (‘s=‘,s);

1. s:=0;

for i:=1 to 8 do

if (a[i]0) and (a[i]

then s:=s+a[i];

writeln (‘s=‘,s);

1. s:=0;

for i:=1 to 8 do

s:=s+a[i];

s:=s/8;

writeln (‘s=‘,s);

1. Определите, что будет напечатано в результате работы следующей программы.

var Dat: array [1..7] of integer;

k, s:integer;

begin

Dat[1]:=12;Dat[2]:=13;

Dat[3]:=14;Dat[4]:=16;

Dat[5]:=15;Dat[6]:=13;

Dat[7]:=18;

s:=0;

for k:=1 to 7 do

if Dat[k]14 then s:=s+Dat[k];

writeln(‘s=’, s);

end.

1. Определите, что будет напечатано в результате работы следующей программы.

var Dat: array [1..7] of integer;

k, s:integer;

begin

Dat[1]:=12;Dat[2]:=13;

Dat[3]:=14;Dat[4]:=16;

Dat[5]:=15;Dat[6]:=13;

Dat[7]:=18;

s:=0;

for k:=1 to 7 do

if a[i]=13 then s:=s+ Dat [k];

writeln(‘s=’, s);

end.

1. Какое условие в операторе условного перехода необходимо набрать, чтобы найти сумму двузначных элементов массива a, оканчивающихся на 9.

s:=0;

for k:=1 to 50 do

if … then s:=s+a[k];

writeln(‘s=’, s);

end.

1. Вы можете придумать и сформулировать свою задачу!