Новые сообщения · Правила  
  • Страница 8 из 8
  • «
  • 1
  • 2
  • 6
  • 7
  • 8
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Задачи с массивами
Задачи с массивами
еще несколько задач,пожалуйста:
1)Формат входных данных
Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива.
Формат выходных данных
Необходимо вывести количество элементов массива, которые больше предыдущего элемента в этом массиве.
2)Напишите программу, которая определяет, есть ли в данном массиве два соседних элемента с одинаковыми знаками.
Формат входных данных
Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива. Массив содержит только ненулевые числа.

Формат выходных данных
Программа должна вывести YES, если есть два соседних элемента с одинаковыми знаками, и NO – иначе.
141 | Автор: ASDF2679 | 2013-04-02, 16:39   |  Репутация: [ + 0 ]
1)
var
a:array[1..1000]of integer;
i,n,count:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=2 to n-1 do
if a[i]>a[i-1] count:=count+1;
writeln(count);
end.

2)
var
var
a:array[1..1000]of integer;
i,n:integer;
l:boolean;
begin
l:=false;
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
if (a[i]>0 and a[i+1]>0) or (a[i]<0 and a[i+1]<0) then begin
l:=true;break;end;
if l then writeln('YES') else writeln('NO');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
142 | Автор: Berestovskiy | 2013-04-04, 07:53   |  Репутация: [ + 211 ]
Пожалуйста,помогите решить в Паскале:
1)Дано число n, n <= 100 . Создайте массив n×n и заполните его по следующему правилу:
- числа на диагонали, идущей из правого верхнего в левый нижний угол, равны 1;
- числа, стоящие выше этой диагонали, равны 0;
- числа, стоящие ниже этой диагонали, равны 2.
Формат входных данных
Программа получает на вход число n.
Формат выходных данных
Необходимо вывести полученный массив. Числа разделяйте одним пробелом.
Примеры
Входные данные
4
Выходные данные
0 0 0 1
0 0 1 2
0 1 2 2
1 2 2 2
2)Проверьте, является ли двумерный массив симметричным относительно главной диагонали. Главная диагональ — та, которая идёт из левого верхнего угла двумерного массива в правый нижний.
Формат входных данных
Программа получает на вход число n<= 100, являющееся числом строк и столбцов в массиве. Далее во входном потоке идет n строк по n чисел, являющихся элементами массива.
Формат выходных данных
Программа должна выводить слово yes для симметричного массива и слово no для несимметричного.
Пример
Ввод
3
0 1 2
1 2 3
2 3 4
Вывод yes
3)В метании молота состязается n спортcменов. Каждый из них сделал m бросков. Победителем считается тот спортсмен, у которого сумма результатов по всем броскам максимальна.
Если перенумеровать спортсменов числами от 0 до n-1, а попытки каждого из них – от 0 до m-1, то на вход программа получает массив A[n][m], состоящий из неотрицательных целых чисел. Программа должна определить максимальную сумму чисел в одной строке и вывести на экран эту сумму и номер строки, для которой достигается эта сумма.
Формат входных данных
Программа получает на вход два числа n и m, являющиеся числом строк и столбцов в массиве. Далее во входном потоке идет n строк по m чисел, являющихся элементами массива.
Формат выходных данных
Программа должна вывести 2 числа: сумму и номер строки, для которой эта сумма достигается. Если таких строк несколько, то выводится номер наименьшей из них. Не забудьте, что нумерация строк (спортсменов) начинается с 0.
Пример
Ввод
4 3
5 6 7
6 6 7
7 6 6
4 3 5
Вывод
19 1
143 | Автор: ASDF2679 | 2013-04-23, 13:08   |  Репутация: [ + 0 ]
Пожалуйста,очень нужна помощь,помогите решить 3 задачи:
1)В метании молота состязается n спортcменов. Каждый из них сделал m бросков. Победителем соревнований объявляется тот спортсмен, у которого максимален наилучший результат по всем броскам. Таким образом, программа должна найти значение максимального элемента в данном массиве, а также его индексы (то есть номер спортсмена и номер попытки).
Формат входных данных
Программа получает на вход два числа n и m, являющиеся числом строк и столбцов в массиве. Далее во входном потоке идет n строк по m чисел, являющихся элементами массива.
Формат выходных данных
Прогhамма выводит значение максимального элемента, затем номер строки и номер столбца, в котором он встречается. Если в массиве несколько максимальных элементов, то нужно вывести минимальный номер строки, в которой встречается такой элемент, а если в этой строке таких элементов несколько, то нужно вывести минимальный номер столбца. Не забудьте, что все строки и столбцы нумеруются с 0.
Пример
Ввод Вывод
4 3 5
1 4 2 1 0
5 2 5
5 1 4
1 2 4
2)В метании молота состязается n спортcменов. Каждый из них сделал m бросков. Побеждает спортсмен, у которого максимален наилучший бросок. Если таких несколько, то из них побеждает тот, у которого наилучшая сумма результатов по всем попыткам. Если и таких несколько, победителем считается спортсмен с минимальным номером. Определите номер победителя соревнований.
Формат входных данных
Программа получает на вход два числа n и m, являющиеся числом строк и столбцов в массиве. Далее во входном потоке идет n строк по m чисел, являющихся элементами массива.
Формат выходных данных
Программа должна вывести одно число - номер победителя соревнований. Не забудьте, что строки (спортсмены) нумеруются с 0.
Пример
Ввод Вывод
4 3 2
8 8 8
5 9 3
9 4 7
6 6 2
3)В метании молота состязается n спортcменов. Каждый из них сделал m бросков. Победитель определяется по лучшему результату. Определите количество участников состязаний, которые разделили первое место, то есть определите количество строк в массиве, которые содержат значение, равное наибольшему.
Формат входных данных
Программа получает на вход два числа n и m, являющиеся числом строк и столбцов в массиве. Далее во входном потоке идет n строк по m чисел, являющихся элементами массива.
Формат выходных данных
Программа должна вывести одно число - количество победителей соревнования.

Пример
Ввод Вывод
4 3 2
1 2 3
4 5 6
6 2 5
2 3 4
144 | Автор: ASDF2679 | 2013-04-30, 19:12   |  Репутация: [ + 0 ]
Добрый день! помогите решить задания.
1)Дан целочисленный массив из 23 элементов, заданныхслучайным образом. Вывести все содержащиеся в данном массиве нечетныечисла в порядке возрастания, а также их количество К.

2) Дан целочисленный массив из 18 элементов, заданных случайнымобразом. Вывести его элементы с нечетными номерами в порядке убывания. 

3) Данцелочисленный массив из 25 элементов, заданных случайным образом. Найти среднее
арифметическое его нечетных элементов. Вывести массив и среднее арифметическое
на форму. Для вычисления среднего арифметического создать функцию.
145 | Автор: М@рия | 2013-09-14, 19:47   |  Репутация: [ + 0 ]
Напишите пожалуйста программу на языке Паскаль, я студент и в массивах полный ноль, заранее большое спасибо!

Напишите программу, которая по заданному N (в этой задаче 1 <= N <= 100)
и вещественным числам a, b, p, q (a > 0, b > 0) находит вещественный массив
X = (x[0], x[1], ..x[N]), в котором каждый последующий элемент получается
из двух предыдущих следующим образом:

p*x[j-1] + q*x[j-2]
x = ---------------------
p + q

где x[0] = a, x[1] = b и j = 2, 3, ..N.

Затем требуется в массиве X наибольший и наименьший элементы заменить на
среднее арифметическое.

Исходные данные

Числа N, a, b, p, q.

Выходные данные

Массив X до и после преобразования.
146 | Автор: jodgick | 2013-10-08, 17:26 | Изменено: jodgick - Вт, 2013-10-08, 17:32   |  Репутация: [ + 0 ]
Найти сумму элементов массива, которые делятся на заданное число
147 | Автор: Катерина | 2013-11-13, 11:00   |  Репутация: [ + 0 ]
const
n=10;
var
a:array[1..n]of integer;
sum,i,val:integer;
begin
sum:=0;
read(val);
for i:=1 to n do begin
read(a);
if a mod val = 0 then sum:=sum+a
;end;
writeln(sum);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
148 | Автор: Berestovskiy | 2013-11-13, 14:46   |  Репутация: [ + 211 ]
Написать программу для вывода на экран всех четных чисел от 1 до 20 включительно.
149 | Автор: eguarkozlov | 2013-12-11, 21:00   |  Репутация: [ + 0 ]
var
i:byte;
begin
for i:=1 to 20 do
if i mod 2 = 0 then write(i,' ');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
150 | Автор: Berestovskiy | 2013-12-12, 09:20   |  Репутация: [ + 211 ]
Дан массив X(N,M).Найти номера столбцов массива,все элементы которых четны. Из полученных значений сформировать одномерный массив.
151 | Автор: sholota | 2014-03-22, 16:37   |  Репутация: [ + 0 ]
составьте программу нахождения среднего арифметического значения одномерного массива А(Е).(элементы массива вводятся с клавиатуры). сформируйте новый массив B(m) состоящий из элементов массива А(Е) меньших среднего арифметического. в массиве  B(m) определите минимум.

123
152 | Автор: Alena060463 | 2014-06-08, 11:23   |  Репутация: [ + 0 ]
Составьте программу вычисления суммыэлементов встречающихся только в одном из массивов A(N) или B(N).
153 | Автор: 4ertovo4ka | 2014-12-11, 22:29   |  Репутация: [ + 0 ]
153 | Автор: 4ertovo4ka | 2014-12-11, 22:29   |  Репутация: [ + 0 ]
Помогите пожалуйста написать программу на Паскале: Элементы массива A(N) удовлетворяют условию A(1)<A(2)<A(3)<...<A(N).Выбрать элемент массива ,ближайший к произвольному значению X,где A(1)<=X<=A(N).
154 | Автор: Lionel2394 | 2014-12-20, 10:04   |  Репутация: [ + 0 ]
154 | Автор: Lionel2394 | 2014-12-20, 10:04   |  Репутация: [ + 0 ]
якої розмірності масиви ?

Verhovny Menko
155 | Автор: Verhovny_Menko | 2014-12-25, 19:51   |  Репутация: [ + 7 ]
var mas: array [0..10] of integer;
i:integer;
begin
for i:=0 to 10 do
begin mas :=i*2;
write(mas, ' ');
end;
writeln();
i:=0;
while(i<10) do
begin
mas [i+1]:=mas+mas[i+2];
i:=i+2;
end;
for i:=0 to 10 do
write (mas, ' ');
end.
Помогите пожалуйста восстановить условие задачи
156 | Автор: Udalowam | 2015-02-01, 09:30   |  Репутация: [ + 0 ]
Цитата Alena060463 ()
составьте программу нахождения среднего арифметического значения одномерного массива А(Е).(элементы массива вводятся с клавиатуры). сформируйте новый массив B(m) состоящий из элементов массива А(Е) меньших среднего арифметического. в массиве  B(m) определите минимум.№152 | Автор: Alena060463 | 2014-06-08, 11:23   |  Репутация: [ + 0 ]


var
  i, sum, min: integer;
  B, A: array [1..10] of integer;
  srd: real;

begin
  writeln('Введите элементы массива rageo');
  sum := 0;
  for i := 1 to 10 do
  begin
    read(A);
    sum := sum + A;
  end;
  srd := round(sum / 10);
  min := 32000;
  for i := 1 to 10 do
    if A < srd then
    begin
      B := A;
      if B < min then min := B
;
    end;
  writeln(A);
  writeln('среднее ', srd);
  writeln(B); 
  writeln('минимум ', min);
end.


GeRa
157 | Автор: rageo | 2021-03-19, 15:20   |  Репутация: [ + 42 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Задачи с массивами
  • Страница 8 из 8
  • «
  • 1
  • 2
  • 6
  • 7
  • 8
Поиск: