|
Поиск элементов массива по определенным условиям. Задачи. 1. Дан массив из N целых чисел и целое число В. Написать программу, определяющую, сколько в массиве чисел, меньших В.
Var a : array[1..100] of integer; i, n, b, k : integer; Begin read(n); for i:=1 to n do read(a[i]); read(b); k:=0; for i:=1 to n do if a[i]<b then k:=k+1;
writeln(k);
End.
2. Дан массив из N целых чисел. Написать программу, определяющую, сколько в массиве четных чисел.
Var
a : array[1..100] of integer;
i, n, k : integer;
Begin
read(n);
for i:=1 to n do
read(a[i]);
k:=0;
for i:=1 to n do
if a[i] mod 2=0 then k:=k+1;
writeln(k);
End.
3. Дан массив из N целых чисел. Написать программу, определяющую, каких элементов в нем больше: положительных или отрицательных.
Var
a : array[1..100] of integer;
i, n, kp, ko : integer;
Begin
read(n);
for i:=1 to n do
read(a[i]);
kp:=0;
ko:=0;
for i:=1 to n do
begin
if a[i]<0 then ko:=ko+1;
if a[i]>0 then kp:=kp+1;
end;
if ko=kp then writeln('равное количество');
if ko>kp then writeln('отрицательных') else writeln('положительных') ;
End.
4. Дан массив из N целых чисел. Написать программу, определяющую, сколько в массиве чисел, равных максимальному элементу массива.
Var
a : array[1..100] of integer;
i, n, k, max : integer;
Begin
read(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
for i:=2 to n do
if max<a[i] then max:=a[i];
k:=0;
for i:=1 to n do
if a[i]=max then k:=k+1;
writeln(k);
End.
5. Дан массив из N целых чисел. Написать программу, определяющую максимальный элемент массива и его номер. Если максимальных несколько, то номер первый.
Var
a : array[1..100] of integer;
i, n, k, max : integer;
Begin
read(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
k:=1;
for i:=2 to n do
if max<a[i] then
begin
max:=a[i];
k:=i;
end;
writeln(max,' ',k);
End.
6. Дан массив из N чисел. Написать программу, вычисляющую разность между максимальным элементом массива и минимальным.
Var
a : array[1..100] of integer;
i, n, min, max : integer;
Begin
read(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
min:=a[1];
for i:=2 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln(max-min);
End.
7. Дан массив из N целых чисел. Написать программу, находящую сумму элементов массива, кратных 3 или 5.
Var
a : array[1..100] of integer;
i, n, s : integer;
Begin read(n); for i:=1 to n do read(a[i]); s:=0; for i:=1 to n do if (a[i] mod 3=0) or (a[i] mod 5=0) then s:=s+a[i]; writeln(s); End.
8. Дан массив из N целых чисел. Написать программу, заменяющую первый отрицательный элемент массива нулем.
9. Дан массив из N целых чисел. Написать программу, выводящую индексы тех элементов массива, значения которых больше предыдущего элемента массива (начиная со второго).
Var
a : array[1..100] of integer;
i, n : integer;
Begin read(n); for i:=1 to n do read(a[i]); for i:=2 to n do if a[i-1]<a[i] then write(i:5); writeln; End.
10. Дан массив из N целых чисел. Написать программу, определяющую, есть ли в массиве два соседних положительных элемента. Если есть, то вывести индекс первого элемента, входящего в первую пару. Гарантированно, что такая пара существует.
Var
a : array[1..100] of integer;
i, n : integer;
Begin read(n); for i:=1 to n do read(a[i]); i:=2; while (a[i-1]<=0) or (a[i]<=0) and (i<n) do i:=i+1; writeln(i-1); End.
11. Дан массив из N ненулевых чисел. Написать программу, определяющую, сколько раз меняется знак элементов массива при его просмотре. Например, в массиве -5, -4, 6, -1, 7 знак меняется три раза.
12. Дан массив из N целых чисел. Написать программу, добавляющую нуль после первого максимального элемента массива.
13. Дан массив из N целых чисел. Написать программу, добавляющую нуль после последнего максимального элемента массива.
14. Дан массив из N целых чисел. Написать программу, подсчитывающую количество пар одинаковых элементов, стоящих рядом.
15. Дан массив из N целых чисел. Написать программу, подсчитывающую количество пар одинаковых элементов в массиве.
|