Решение логических задач методом определения количества значений

Задача 1. Проверить, есть ли в массиве А(100) отрицательные элементы (т.е. количество отрицательных элементов должно быть больше нуля).

program prim;

var i,k:integer; a:array[1..100] of real;

begin

for i:=1 to 100 do read(a[ i ]);

k:=0;

for i:=1 to 100 do

if a[ i ]<0 then k:=k+1;

if k>0 then writeln('есть отрицат. элементы') else writeln('нет отрицательных эл-тов');

end.

Задача 2. Проверить, все ли элементы массива А(30) больше 3 (т.е. количество элементов, больших 3, должно быть равно количеству элементов в массиве).

program prim;

var i,k:integer;

a:array[1..30] of real;

begin

for i:=1 to 30 do read(a[ i ]);

k:=0;

for i:=1 to 30 do

if a[ i ]>3 then k:=k+1;

if k=30 then writeln(' все больше 3')

else writeln('не все больше 3');

end.

ЗАДАЧИ

1. Составить программу по следующему алгоритму:

а) ввести 7 чисел;

б) если сумма чисел больше 50,то расставить эти числа в обратном порядке,вывести их на экран и закон-

чить работу;

в) в противном случае - отрицательные числа заменить нулями, перейти на п. а)

2. Проверить,все ли элементы массива А(30) расположены по убыванию.

3. Расположить массив А(30) по возрастанию.

4. Определить,есть ли в массиве А(30) четные элементы.

5. Определить индекс 1-го отрицательного элемента массива А(40).

6. Числовая прямая разбита на отрезки точками А₁, А₂, А₃,...А_n Выяснить,какому из отрезков принадлежит

заданная точка Х.

7. Задан массив А(30),состоящий только из нулей и единиц. Проверить,существует ли строгое чередова-

ние(0101... или 1010...).

8. Заданы массивы а(10) и В(20). Сформировать массив С, содержащий элементы обоих массиов, располо-

женные по возрастанию.

9. Даны массивы А(10),В(10),С(10).Преобразовать массив С по следующему алгоритму:

все элементы массива С, предшествующие его наибольшему элементу, заменить на их кубы, если выпол-

няются следующие условия:

- наибольший элемент массива А равен 20 и находится в первой половине этого массива;

- в массиве В нет отрицательных элементов, а наибольший элемент не превосходит наибольшего из мас-

сива А.

10.Таблица содержит 100 номеров выигрышных билетов. Проверить, является ли билет с номером N выиг-

рышным?

11.С 8 до 20 часов температура воздуха измерялась ежечасно. Известно, что в течение этого времени темпе-

ратура понижалась. Определить, в котором часу впервые отмечена отрицательная температура.

12.Найти номер минимального и максимального элементов массива А(20), попавших в отрезок [c;d].