Вывести сообщение "Есть", если в массиве присутствует ноль и "Нет", если нуля нет

@Ivanicov · Регистрация: 12.11.2012

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

Заполните массив из 10 элементов случайными числами и вывести сообщение "Есть", если в массиве присутствует ноль и "Нет", если нуля нет.

@ermolay · 13.11.2012, 02:43

Pascal

const
  n=10;
var
  a: array[1..n] of integer;
  i: integer;
  boo: boolean;
begin
  boo:=false;
  for i:=1 to n do
  begin
    a[i]:=random(11)-5;
    write(a[i],' ');
    if a[i]=0 then boo:=true;
  end;
  if boo then writeln('Есть') else writeln('Нет');
  readln;
end.

@Ivanicov 0 / 0 / 0 Регистрация: 12.11.2012 Сообщений: 18
		1
	Вывести сообщение "Есть", если в массиве присутствует ноль и "Нет", если нуля нет 12.11.2012, 22:49. Показов 1851. Ответов 1 Метки нет (Все метки) Заполните массив из 10 элементов случайными числами и вывести сообщение "Есть", если в массиве присутствует ноль и "Нет", если нуля нет. 0

Опции темы

Вывести сообщение "Есть", если в массиве присутствует ноль и "Нет", если нуля нет

Решение