Помогите пожалуйста срочно. Pascal…

Question

Помогите пожалуйста срочно. Pascal 1. Проверить, что в массиве все элементы положительны. 2. Проверить, что все элементы массива равны друг другу. 3. Проверить, есть ли в массиве элемент, равный заданному значению

Answer 1

76

andrewsanswer

14 апреля 2023

var a: array [1… 100] of real; n, i: integer; begin read (n); for i: =1 to n do read (a[i]); for i: =1 to n do if a[i] <= 0 then begin writeln ('NO'); readln; Halt; end; writeln ('YES'); readln; end. var a: array [1… 100] of real; n, i: integer; o: real; begin read (n); for i: =1 to n do read (a[i]); o: =a[1]; for i: =2 to n do if a[i] <> o then begin writeln ('NO'); readln; Halt; end; writeln ('YES'); readln; end. var a: array [1… 100] of real; n, i: integer; x: real; begin read (n); for i: =1 to n do read (a[i]); read (x); for i: =1 to n do if a[i]=x then begin writeln ('YES'); readln; Halt; end; writeln ('NO'); readln; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: