Вопрос по информатике:
помогите пожалуйста срочно. Pascal 1. Проверить, что в массиве все элементы положительны. 2. Проверить, что все элементы массива равны друг другу. 3. Проверить, есть ли в массиве элемент, равный заданному значению
- 25.05.2018 14:39
- Информатика
- remove_red_eye 12912
- thumb_up 94
Ответы и объяснения 1
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.
- 26.05.2018 06:59
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.