Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
KardinalSlime
0 / 0 / 0
Регистрация: 05.12.2016
Сообщений: 14
1

Заменить все большие семи члены последовательности

05.12.2016, 12:55. Просмотров 916. Ответов 4
Метки нет (Все метки)

Даны натуральное число n, целые числа X1,…,Xn. Заменить все большие семи члены последовательности X1,…Xn числом 7. Вычислить количество таких членов.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program glfh;
Var  n,X,Xn : integer;                                                                                                                  
begin
       readln(n);
       for X:=1 to n do
          readln(Xn);
          if (Xn>7) then begin 
                                    k:=k+1;   
                                    Xn:=7;
                                    end.
writeln(k);
end.
Исправьте, пожалуйста. Программа не работает совсем. Нужно именно на паскале.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.12.2016, 12:55
Ответы с готовыми решениями:

Рекурсивная программа: Заменить все члены последовательности, большие данного Z, заданным числом
Помогите решить с помощью рекурсии!!!по возможности объясните! {Дана последовательность...

Заменить все члены последовательности, большие данного Z, заданным числом
Дана последовательность действительных чисел а1, а2,..., аn. Заменить все ее члены, большие данного...

Все отрицательные члены последовательности увеличить на 0.5, а все неотрицательные заменить на 0.1
Дана натуральное число n, действительные числа а1....аn, в последовательности а1...аn все...

Заменить все отрицательные члены последовательности ее минимальным элементом, а все положительные - максимальным
Дано натуральное число n и последовательность действительных чисел a1,a2...an.Заменить все...

В последовательности все члены, следующие за наибольшим, заменить на 0.5
Даны действительные числа a1...an, b1...bm. В последовательности a1...an и в последовательности...

4
Puporev
Модератор
56610 / 43293 / 29932
Регистрация: 18.05.2008
Сообщений: 102,999
05.12.2016, 13:06 2
Лучший ответ Сообщение было отмечено KardinalSlime как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var  n,i,k:integer;
     x:array[1..100] of integer;
begin
randomize;
writeln('Введите размер массива от 1 до 100 n=');
readln(n);
writeln('Исходный массив');
for i:=1 to n do
 begin
  x[i]:=-5+random(30);
  write(x[i]:4);
 end;
writeln;
writeln('Измененный массив');
for i:=1 to n do
 begin
  if x[i]>7 then
   begin
    x[i]:=7;
    k:=k+1;
   end;
  write(x[i]:4);
 end;
writeln;
writeln('Количество замен=',k);
end.
1
KardinalSlime
0 / 0 / 0
Регистрация: 05.12.2016
Сообщений: 14
05.12.2016, 13:24  [ТС] 3
Программа требует количество членов массива, которые больше 7. Не понимаю, зачем количество замен в этой программе?

Добавлено через 8 минут
Извиняюсь, все понятно, спасибо. А как будет выглядеть вариант, если программа будет просить записать массив вручную?
0
Puporev
Модератор
56610 / 43293 / 29932
Регистрация: 18.05.2008
Сообщений: 102,999
05.12.2016, 13:27 4
Описание, объявление и заполнение массивов (матриц)
1
KardinalSlime
0 / 0 / 0
Регистрация: 05.12.2016
Сообщений: 14
05.12.2016, 13:47  [ТС] 5
Спасибо большое!
0
05.12.2016, 13:47
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.12.2016, 13:47

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

Все неотрицательные члены последовательности, не при- надлежащие отрезку [1, 2], заменить на единицу.
Даны натуральное число n, действительные числа а1,...,аn. В последовательности а1,..., аn все...

Вывести все элементы последовательности, являющиеся трехзначными числами, кратными семи
Напишите программу обработки последовательности целых чисел. На вход программе сначала подается...


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

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

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