Найти в массиве в(10) сумму элементов под четными номерами
Найти в массиве в(10) сумму элементов под четными номерами
Гость
Ответ(ы) на вопрос:
ГостьА вот так подойдет?????
uses Crt;
const n=10;
Type Vec=array [1..n] of integer;
var B: Vec;
i, Sum : integer;
begin
ClrScr;
for i:=1 to n do
begin
B[i]:=10+random(21);
if (i mod 2 =0) then Sum:=Sum+B[i];
Write(B[i]:4);
end;
WriteLn;
WriteLn('Sum =', Sum);
ReadLn;
end.
Не нашли ответ?
Похожие вопросы