Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Максимыч
0 / 0 / 0
Регистрация: 09.11.2015
Сообщений: 32
1

Составьте программу подсчета количества таких i, что Z[i] не меньше всех предыдущих элементов таблицы

09.11.2015, 17:34. Просмотров 892. Ответов 1
Метки нет (Все метки)

1. Дан одномерный массив. Составьте программу подсчета количества таких i, что Z[i] не меньше всех предыдущих элементов таблицы (Z[1], Z[2], ..., Z[i-1]).
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.11.2015, 17:34
Ответы с готовыми решениями:

Дан одномерный массив. Составьте программу подсчета количества таких i, что Z[i] не меньше всех предыдущих эле
Pascal

Составьте программу подсчета наименьшего количества имеющихся септимов для выплаты суммы М (1<М<10000)
Покупатель купил товаров у купца на М септимов, а купец предложил ему сделку:...

Составьте программу подсчета числа различных повторяющихся элементов массива C(M,P).
Составьте программу подсчета числа различных повторяющихся элементов массива...

Составьте программу подсчета числа максимальных по модулю элементов одномерном массиве
Составьте программу подсчета числа максимальных по модулю элементов в...

Составьте программу подсчета числа наименьших по модулю элементов одномерного массива
1. Составьте программу подсчета числа наименьших по модулю элементов...

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4128 / 2727 / 2165
Регистрация: 22.11.2013
Сообщений: 7,620
10.11.2015, 11:37 2
Лучший ответ Сообщение было отмечено Максимыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const n=40;
var
  z: array [1..n] of Integer;
  i, k, m: Integer;
begin
  Randomize;
  for i:=1 to n do z[i]:=-50+Random(101);
  for i:=1 to n do Write(z[i]:4); WriteLn;
  m:=z[1]; {k:=0;}
  for i:=1 to n do begin
    if z[i]>=m then Inc(k);
    if m<z[i] then m:=z[i];
  end;
  WriteLn('k=',k);
end.
Если первый элемент считать не нужно, поскольку у него нет предшествующих, то
Pascal
10
  for i:=2 to n do begin
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.11.2015, 11:37

Составьте алгоритм и программу нахождения всех нечетных четырехзначных чисел, сумма квадратов цифр которых меньше 20
1. TURBO PASCAL. Составьте алгоритм и программу нахождения всех нечетных...

Составить программу подсчета количества элементов матрицы, удовлетворяющих условию
Дана вещественная матрица А(3,4). Составить программу подсчета количества...

Составьте программу для нахождения количества,суммы и произведения всех натуральных чисел, делящихся на 4 на отрезке [16,64]
Составьте программу для нахождения количества,суммы и произведения всех...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru