Найти все четные по значению элементы массива

@kkdm · Регистрация: 15.03.2012

Студворк — интернет-сервис помощи студентам

Найти все четные по значению элементы массива из N целых чисел. Вывести на печать значение элементов

Kodzaev · 15.03.2012, 18:26

Pascal

Uses crt;
Var
x: Array[1..500] of Integer;
n,i: Integer;
Begin
Clrscr;
Randomize;
Writeln('Введите размерность массива: ');
Readln(n);
Writeln('Исходный массив: ');
For i:=1 to n do
 begin
  x[i]:=Random(101)-50;
  Write(x[i],' ');
 end;
Writeln;
Writeln('Полученный массив: ');
For i:= 1 to n do
If x[i] mod 2=0 Then Write(x[i],' ');
Readln
End.

@Doctor Nano · 15.03.2012, 18:40

Pascal

   Uses crt;
  const
        n=15;
    Var
       a:array[1..n]of integer;
       i:Integer;
Begin
 Clrscr;
 Randomize;
   Writeln('Исходный массив: ');
     For i:=1 to n do
                    begin
                      a[i]:=Random(100);
                      Write(a[i]:4);
                    end;
 Writeln;
   Writeln('Полученный массив из четных чисел: ');
       For i:= 1 to n do
                       begin
                         If not(odd(a[i]))or(a[i]=0) Then Write(a[i]:5);
                       end;
Readkey;
End.

Найти все четные по значению элементы массива

Решение

Решение

@kkdm 0 / 0 / 0 Регистрация: 15.03.2012 Сообщений: 8
		1
	Найти все четные по значению элементы массива 15.03.2012, 16:05. Показов 3157. Ответов 2 Метки нет (Все метки) Найти все четные по значению элементы массива из N целых чисел. Вывести на печать значение элементов 0

Опции темы