Program z3;
Var i,k:integer;
B:array[1..100] of real;
Begin
for i:=1 to 8 do
Begin
b[i]:=trunc(random*100);
End;
k:=0;
for i:=1 to 8 do
Begin
if b[i] mod 2=0 then
k:=k+1;
End;
WriteLn(k);
End.
Заранее спасибо.
Полная версия: Написать программу, которая в массиве из 8 случайных вещественных чисел находит сумму элементов, стоящих на четных местах.
Заранее спасибо.
Подправь цикл:
P.S.
Немного странный способ..
Вот так не проще?
for i:=1 to 8 do if i mod 2=0 then k:=k+b[i];
P.S.
Немного странный способ..
b[i]:=trunc(random*100);
Вот так не проще?
b[i]:=random(100);
Спасибо большое 
Цитата(Nagare Boshi @ 8.01.2010 5:03) 
Спасибо большое
Пожалуйста )).Правда, эффективнее было бы так:
for i:=1 to 4 do k:=k+b[2*i];
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.