Программа по нахождению четных чисел в массиве, заданном случайным образом (только двузначные числа)

19.10.2014, 15:56. **Показов** 1633. **Ответов** 1

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

Procedure. Написать программу, которая находит в заданном случайным образом массиве (только двузначные числа) только четные и выводит их на экран.

@Cyborg Drone · 19.10.2014, 22:31

Pascal

procedure even(var c: array of byte);
var i:integer;
begin
  writeln('Even elements of array:');
  for i := 0 to high(c) - 1 do if not odd(c[i]) then write(c[i]:3);
  writeln
end;
 
const n = 26;
var a: array [1..n] of byte;
    i: integer;
begin
  writeln('Source array:');
  for i := 1 to n do
    begin
      a[i] := 10 + random(90);
      write(a[i]:3)
    end;
  writeln;
  even(a);
  readln
end.

Startrek
		1
	Программа по нахождению четных чисел в массиве, заданном случайным образом (только двузначные числа) 19.10.2014, 15:56. Показов 1633. Ответов 1 Метки нет (Все метки) Procedure. Написать программу, которая находит в заданном случайным образом массиве (только двузначные числа) только четные и выводит их на экран.

	19.10.2014, 22:31

Программа по нахождению четных чисел в массиве, заданном случайным образом (только двузначные числа)

Решение