Дана последовательность натуральных чисел а1, а2, … аn. Создать массив из четных чисел этой последовательности. Если таких чисел нет, то вывести сообщение
Категория: Delphi/Pascal
2011-08-28 19:52:53
code: #pascal
- USES CRT;
- var
- X,y:array [1..16] of byte;
- i:byte;
- Begin
- CLRSCR;
- Randomize;
- Write('Последовательность: ');
- For i:=1 to 16 do
- X[i]:= random (40);
- For i:=1 to 16 do
- Write (X[i],' ');
- Writeln;
- write('Четные: ');
- For i:=1 to 16 do
- If X[i] mod 2=0 then
- begin
- write(x[i],' ');
- end;
- Readkey;
- end.
Поделиться: