Определить количество элементов массива, значение которых больше соседних элементов

сб, 11/19/2011 - 13:20 — tech

Темы учебника

Циклы в Паскале

Задача:

Пользователь вводит n элементов массива. Требуется определить количество элементов, значение которых больше, чем у соседних элементов массива.

Описание переменных:

m - количество реальных элементов массива;
qty - количество элементов массива, значение которых больше, чем у соседей.

Алгоритм решения задачи:

Считываем числа с помощью процедуры read() и помещаем их в массив.
Переменной qty присваиваем значение 0.
Переменной i, которая обозначает индекс массива, присваиваем значение 2, т.к проверять первый элемент массива не имеет смысла (у него нет левого соседа).
В условии цикла выражение i
Если очередной элемент массива (arr[i]) больше предшествующего (arr[i-1]) и очередной элемент массива (arr[i]) больше последующего (arr[i+1]), то ...
... увеличить значение qty на единицу и ...
... увеличить значение i на 2, т.к проверять следующий элемент нет смысла, т.к. уже известно, что он меньше левого соседа.
Иначе (если условие не выполнилось) перейти к следующему элементу массива (i := i + 1).
Вывести значение qty на экран.

Это не оптимальный алгоритм, но короткий.

Программа на языке Паскаль:

const
    n = 100;
var
    arr: array[1..n] of integer;
    i, m, qty: byte;
begin
    write('Количество элементов массива: ');
    readln(m);
    write('Элементы массива через пробел: ');
    for i:=1 to m do
        read(arr[i]);
    readln;
 
    qty := 0;
    i := 2;
    while i do
        if (arr[i] > arr[i-1]) and (arr[i] > arr[i+1]) then begin
                qty := qty + 1;
                i := i + 2
        end
        else
            i := i + 1;
 
    writeln('Кол-во элементов, которые больше соседей: ', qty);
 
readln;
end.

Примечания:

Пример выполнения программы:

Количество элементов массива: 6
Элементы массива через пробел: 3 4 2 3 7 6
Количество элементов, которые больше соседей: 2

Получается 2, т.к. только четверка и семерка больше обоих своих соседей.

Версия для печати
Добавить комментарий

Одномерный массив 15 элементов заполнить случайными значениями, вывести его на экран.
Определить количество элементов, значения которых больше суммы соседних элементов (предыдущего и последующего).

ответить

Пнд, 12/16/2013 - 10:33 — tech

определить индексы элементов

определить индексы элементов массива значение которых не менее А и не более В type [1...100]

ответить

Пнд, 11/11/2013 - 11:45 — tech

помогите решить задачу

Масивы данных имеют значения роста для мальчиков и девочек. Определить кто (мальчик или девочка) самый высокий и самый низкий.

ответить

ср, 04/04/2012 - 14:24 — Гость (не проверено)

Пожалyйста помогите решить задачy

Вводится число N, а за ним N целых чисел – элементов массива.
Найдите количество отрицательных элементов в этом массиве

ответить

чт, 04/05/2012 - 21:48 — Гость (не проверено)

var mass:array[1..99] of

var mass:array[1..99] of integer;
    n,m,i:integer;
begin
  writeln('введите n');
  readln(n);
  for i:=1 to n do
    begin
      writeln('введите элемент массива номер ',i);
      readln(mass[i]);
      if mass[i]then
        m:=m+1;
    end;
  writeln('количество отрицательных элементов:',m);
end.

ответить

ср, 05/23/2012 - 21:34 — Гость (не проверено)

алгоритмы

вычислить площадь заштрихованной фигуры при R1=25см ;R2=15см ;R3=5см. Площадь круга S=ПR в квадрате.

ответить

чт, 04/05/2012 - 02:34 — Гость (не проверено)

program zd1;Uses Crt;Var

program zd1;
Uses
Crt;
Var
N, i: integer;
Mas: array[1..1000] of integer;
loop: integer; {Счетчик}
Begin
loop := 0;
write('Введите размер массива ');
read(N);
for i:=1 to N do
begin
readln(Mas[i]);
if (Mas[i] ) then
loop := loop + 1;
end;
write('Число отрицательных элементов массива равно ', loop);
End.

Что-то вроде этого

ответить

пт, 01/27/2012 - 22:21 — Гость

помогите пожалуйста решить задачу!!

задача: запросить текст и вывести на экран 2,3, 4 символы текста

ответить

Втр, 05/01/2012 - 18:59 — H@ker (не проверено)

Помогите пожалуйста закончить задачу.

Ввести натуральное число и определить верно ли, что его сумма цифр равна 10.

progran qq;
var n0 do
beging
           z:=n mod 16
           s:=s+z
           n:=mod 10
   end;
    if s=10 the n
    writeln('8a')

(ввести целое число и найти сумму его цифр и произведение)

ответить

пт, 01/27/2012 - 15:17 — Гость

Может так ?? program

Может так ??

 program z1;
var 
x,y,S:integer;
 begin
 writeLn('Введите числа');
  readLn(x,y);
   S:=x+y;
   if S=10 then WriteLn('Да, верно')
   else writeLn ('нет,не верно');
end.

ответить

Втр, 04/10/2012 - 15:39 — Гость (не проверено)

/

Спасибо

ответить

Пнд, 01/30/2012 - 08:50 — Гость

Уважаемые программисты помогите пожалуйста!!! Очень нужно!

В квадратном массиве выделить 4 четверти ограниченные главной и побочной диагоналями (без учёта элементов, расположенных на диагоналях): вернюю, нижнюю, левую, правую.
1) Найти сумму элементов:
а) верхней четверти.
б) правой четверти.
в) нижней четверти.
г) левой четверти.

ответить

вс, 01/29/2012 - 13:51 — Гость

задан одноименный массив из N

задан одноименный массив из N чисел. найти разницу между наибольшим и наименьшим элементами массива. помогите пожалуйста!!

ответить

Втр, 05/01/2012 - 20:22 — H@ker (не проверено)

Готов помочь!

Здесь мой вариант. Он довольно сложный, потому что я туда много чего ненужного понапихал, но с таким, думаю, приятно работать.

program kz4(proc);
uses crt;
label
    rep,again,rep1;
var
    x: array [1..255] of integer; i,n: byte; max,min,r:integer; ans:string;
procedure opr(a:integer; var max,min: integer);
begin
    if min>a then min:=a;
    if maxthen max:=a;
end;
 
begin
    max:=-32768;
    min:=32767;
    again:
    clrscr;
    Write('Введите количество элементов массива: ');
    readln (n);
    Writeln('Желаете заполнить массив вручную или автоматически (ручн/авт)? В автоматическом режиме числа выбираются из диапазона [-500;500].');
    rep:
    Readln(ans);
    case ans of
    'ручн':
    begin
    for i:= 1 to n do
    begin
    Write('Введите ', i,'-й элемент массива: ');
    Readln(x[i]);
    opr(x[i],max,min);
    end;
    end;
    'авт':
    begin
    Randomize;
    Writeln('Компьютер выбрал числа: ');
    for i:= 1 to n do
    begin
    x[i]:=Random(10000)-5000;
    Writeln(x[i]);
    opr(x[i],max,min);
    end;
    end;
    else
    begin
    Writeln('Команда не распознана. Введите еще раз.');
    goto rep;
    end;
    end;
    r:=max-min;
    Writeln('Разница между наибольшим (', max, ') и наименьшим (', min, ') элементами массива равна ', r, '.');
    Writeln('Повторить (д/н)?');
    rep1:
    Readln(ans);
    case ans of
    'д': goto again;
    'н': halt;
    else begin
    Writeln('Ошибка. Повторите.');
    goto rep1;
    end;
    end;
    readln
end.

ответить

Пнд, 01/30/2012 - 17:22 — Гость

решение

const
   m = 100;
var
   a:array[1..m] of integer;
   i,n,max,min,raz:integer;
begin
   writeln('введите количество элементов массива');
   readln(n);
   writeln('введите элементы массива');
   for i:=1 to n do
      readln(a[i]);
   min:=a[i];
   for i:=1 to n do
      If min>a[i] then min:=a[i];
   max:=a[i];
   for i:=1 to n do
      If max[i] then max:=a[i];
   raz:=max-min;
   writeln('разность=',raz);
end.

ответить

ср, 05/30/2012 - 00:08 — Гость (не проверено)

Помогите пожалуйста с

Дан массив P, содержащий N натуральных чисел. Найти наименьшее натуральное число, непредставимое в виде суммы элементов массива Р. Каждый элемент может входить в сумму не более одного раза.

ответить

пт, 05/11/2012 - 14:13 — Гость (не проверено)

Помогите,плиз (((

мне надо ввести программу. графика,надо нарисовать смайлики и кораблик. Помогите пожалуйста,буду очень благодарна.

ответить

Язык Pascal. Программирование для начинающих

Учебник

Решение задач

Программы