Технический форум - Нужна помощь с решением задачи на языке Паскаль

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Нужна помощь с решением задачи на языке Паскаль (http://www.tehnari.ru/f41/t96814/)

Egor1Mozi

06.06.2014 17:49

Нужна помощь с решением задачи на языке Паскаль

Создать массив B из четных элементов массива (a1,a2..a30)

shrek=)

07.06.2014 05:51

Код:

var

b,a:array [1..30] of integer;

i,j:integer;

begin

randomize;

writeln ('Массив A:');

j:=1;

for i:=1 to 30 do begin

a[i]:=random(99)+1;

if a[i] mod 2 = 0 then begin

b[j]:=a[i];

inc(j);

end;

write (a[i]:3);

end;

writeln;

writeln ('Массив B:');

for i:=1 to j-1 do

write (b[i]:3);

end.

Часовой пояс GMT +4, время: 06:44.