Найти номер первого четного числа в массиве

@Игорь26 · Регистрация: 27.12.2011

В одномерном массиве целых чисел a1, а2, ..., an найти но¬мер первого четного числа. Если четных чисел нет, то отве¬том может быть число 0. ПЛИЗ РЕШИТЕ

@goodvin1709 · 27.12.2011, 01:37

Pascal

Program by_goodvin1709;
var
a:array[1..20] of Integer;
i,j:Integer;
begin
For i:=1 to 20 do
a[i]:=Random(100);
 
For j:=1 to 20 do
begin
if a[j] mod 2 = 0 then 
begin
Writeln('Превое четное число в масиве:№',j,' Ето число: ',a[j]);
j:=20;
end;
end;
end.

@versa4e · 27.12.2011, 11:09

полное решение

Pascal

const
  n=15;
type
  arr=array[1..n] of integer;
var
  a:arr;
  i,ip:integer;
begin
  randomize;
  for i:=1 to n do
    begin
      a[i]:=random(50);
      write(a[i]:4);
    end;
  writeln;
  i:=1;
  while (i<=n) and (a[i] mod 2<>0) do
    i:=i+1;
  if i>n then
    ip:=0
  else
    ip:=i;
  writeln('Indeks pervogo chetnogo elementa:',ip);
end.

@Игорь26 0 / 0 / 0 Регистрация: 27.12.2011 Сообщений: 25
		1
	Найти номер первого четного числа в массиве 27.12.2011, 01:30. Показов 2284. Ответов 2 Метки нет (Все метки) В одномерном массиве целых чисел a1, а2, ..., an найти но¬мер первого четного числа. Если четных чисел нет, то отве¬том может быть число 0. ПЛИЗ РЕШИТЕ 0

Опции темы

Найти номер первого четного числа в массиве

Решение