Var a:array[1..15] of integer; i:integer; begin for i:=1 to 15 do begin a[i]:=random(8); if a[i] mod 2 = 0 then a[i]:=a[i]+1 else a[i]:=a[i]*2; end; end.
Мне всегда нравиться наблюдать, как мой брат Эдик готовит уроки. Он очень аккуратный и прилежный мальчик, и поэтому он обычно садиться за занятия в одно и то же время - после того, как пообедает и отдохнет. Сначала Эдик берет свой портфель и достает оттуда учебники, тетрадки, дневник и пенал. Он кладет все это на стол, садиться на стул и открывает дневник, чтобы уточнить , какие задания ему задали. Затем он сортирует все учебники и тетрадки, пряча в стол те, которые ему пока не нужны, и достает необходимые. Затем он включает лампу и по-удобней устраивается на стуле. Некоторое время Эдик будто размышляет , с чего начать. И тогда его лицо становиться очень серьезным. Затем он принимает решение и открывает первый учебник. Берет тетрадку и ручку. Тщательно вчитывается в задание, беззвучно проговаривая его. Эдик начинает писать упражнение или задание в тетрадь.
Мне всегда нравиться наблюдать, как мой брат Эдик готовит уроки. Он очень аккуратный и прилежный мальчик, и поэтому он обычно садиться за занятия в одно и то же время - после того, как пообедает и отдохнет. Сначала Эдик берет свой портфель и достает оттуда учебники, тетрадки, дневник и пенал. Он кладет все это на стол, садиться на стул и открывает дневник, чтобы уточнить , какие задания ему задали. Затем он сортирует все учебники и тетрадки, пряча в стол те, которые ему пока не нужны, и достает необходимые. Затем он включает лампу и по-удобней устраивается на стуле. Некоторое время Эдик будто размышляет , с чего начать. И тогда его лицо становиться очень серьезным. Затем он принимает решение и открывает первый учебник. Берет тетрадку и ручку. Тщательно вчитывается в задание, беззвучно проговаривая его. Эдик начинает писать упражнение или задание в тетрадь.
a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(8);
if a[i] mod 2 = 0 then
a[i]:=a[i]+1
else
a[i]:=a[i]*2;
end;
end.