работа с массивом

@jazman · Регистрация: 08.06.2010

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

Определить имеются ли в массиве элементы со значениями, содержащими цифру "1"
Помогите если не трудно!

@Джексон · 17.06.2010, 12:24

Pascal

const n=100;
type tmas=array[1..n] of integer;
var i:byte;a:tmas; k:integer; c:boolean;
begin
randomize;
for i:=1 to n do
 begin
  a[i]:=random(100)-10;
  write(a[i],' ');
 end;
writeln;
for i:=1 to n do
 begin
 k:=a[i];
 while k>0 do
  begin
  if k mod 10=1 then begin
                      c:=true;
                      break;
                     end;
  k:=k div 10;
  end;
 end;
if c then writeln('Je') else writeln('netu');
readln;
end.

@кот Бегемот · 17.06.2010, 14:22

Pascal

if k mod 10=1 then begin
                      c:=true;
                      break;
                     end;

а зачем прерывать, это мало что меняет, можно и просто:

Pascal

1	if k mod 10=1 then c:=true;

@jazman 0 / 0 / 0 Регистрация: 08.06.2010 Сообщений: 6
		1
	работа с массивом 17.06.2010, 12:00. Показов 1072. Ответов 2 Метки нет (Все метки) Определить имеются ли в массиве элементы со значениями, содержащими цифру "1" Помогите если не трудно! 0

	17.06.2010, 14:22

Опции темы

работа с массивом

Решение