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

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.

06.06.2014, 17:49	#1 (permalink)
Egor1Mozi Новичок Регистрация: 31.05.2014 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Нужна помощь с решением задачи на языке Паскаль Создать массив B из четных элементов массива (a1,a2..a30)

07.06.2014, 05:51	#2 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Код: 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.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070