Массив: Создайте программу которая проверяла бы есть ли в целочисленном массиве хотя бы 1 нечетный элемент

@Rakan · Регистрация: 04.11.2015

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

Создайте программу которая проверяла бы есть ли в целочисленном массиве хотя бы 1 нечетный элемент

@ZX Spectrum-128 · 18.11.2015, 10:29

Pascal

{Создайте программу которая проверяла бы есть ли в целочисленном массиве хотя 
бы 1 нечетный элемент }
const
  n = 20;
 
var
  a: array[1..n] of integer;
  i: integer;
  nechet: boolean;
 
begin
  randomize;
  nechet := false;
  for i := 1 to n do
  begin
    a[i] := random(n) + 1;
    write(a[i]:4);
  end;  
  for i := 1 to n do
  begin
    if odd(a[i]) then
    begin
      nechet := true;
      break;
    end;
  end;
  writeln;
  if nechet then
    writeln('Есть')
  else
    writeln('нет');
end.

@Rakan 0 / 0 / 0 Регистрация: 04.11.2015 Сообщений: 13
		1
	Массив: Создайте программу которая проверяла бы есть ли в целочисленном массиве хотя бы 1 нечетный элемент 18.11.2015, 09:09. Показов 1805. Ответов 1 Метки нет (Все метки) Создайте программу которая проверяла бы есть ли в целочисленном массиве хотя бы 1 нечетный элемент 0

	18.11.2015, 10:29

Массив: Создайте программу которая проверяла бы есть ли в целочисленном массиве хотя бы 1 нечетный элемент

Решение