Подарков ребят, помогите решить задачку для паскаля. Буду признателен

Подарков ребят, помогите решить задачку для паскаля. Буду признателен

Задать свой вопрос
2 ответа
Var n,i,a,b,c,d:longint;beginreadln (n);for i:=1 to n dobeginread (c);if c=0 then b:=b+1;end;if bgt;0 then write ('YES') elsewrite ('NO');end.
Лидия Белянчикова
var n,i,a,b,c,d:longint;beginreadln (n);for i:=1 to n dobeginread (c);if c=0 then b:=b+1;end;if b>0 then write ('YES') elsewrite ('NO');end.
Самар Михон
Сходу рабочая, переделывать не надобно.
Program kkk;
var  n, i: integer;  a: array [1..255] of integer;
begin  readln(n);  for i := 1 to n do    readln(a[i]);  for i := 1 to n do    if a[i] = 0 then      writeln('YES')         else      writeln('NO');  end.
Поработай с этой программкой, чтоб выводил ДА либо НЕТ на весь массив, а не на каждый элемент

Гослова Оксана
var n,i,a,b,c,d:longint;beginreadln (n);for i:=1 to n dobeginread (c);if c=0 then b:=b+1;end;if b>0 then write ('YES') elsewrite ('NO');end.
Аля
Проще так....
Павел Турдыбаев
Нафига делать бешеную программку ?
Анастасия Баух
И твоя будет работать не со всеми числами.
Sergej Shhutilin
Все. Набежали тараканы чтобы об осрать всё как обычно
Олеся Пупыгина
Спасибо брат за помощь
Стефания Прохоровник
Моя с огромным количеством работать будет.
Пашка Тяркин
Мб поможешь ещё одну решить?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт