Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
gayazik
2 / 2 / 0
Регистрация: 06.05.2011
Сообщений: 31
1

Одномерные массивы. Заменить все члены, большие данного Z, этим числом

28.05.2011, 23:06. Просмотров 1130. Ответов 2
Метки нет (Все метки)

Дана последовательность действительных чисел а1, а2,..., а„. Заменить все ее члены, большие данного Z, этим числом. Подсчитать количество замен. Пожалуйста помогите срочно нужна программа!!!
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2011, 23:06
Ответы с готовыми решениями:

Заменить все члены последовательности, большие числа x, этим числом
Дано n вещественных чисел. Заменить все ее члены, большие данного числа x, ...

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

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

Заменить все члены последовательности, больше заданного числа, этим числом
Дана последовательность действительных чисел a1,a2,..,an. Заменить все её...

Заменить все большие 7 члены последовательности числом 7. Найти количество таких членов
Имя входного файла: z551.in Имя выходного файла: z551.out n - натуральное,...

2
inc
6 / 6 / 10
Регистрация: 14.11.2010
Сообщений: 33
28.05.2011, 23:16 2
Лучший ответ Сообщение было отмечено gayazik как решение

Решение

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
Uses crt;
Var a:array [1..100] of integer;
i,k,n:byte;
Z:integer;
Begin
clrscr;
Write('Размерность массива N=');Readln(n);
Write('Введите число Z=');Readln(z);
Writeln('Исходный массив:');
For i:=1 to N do begin
a[i]:=random(100)+1;
write(a[i]:4);
end;
K:=0;
writeln;
Writeln('Новый массив:');
For i:=1 to N do begin
If a[i]>z then begin inc(k); a[i]:=Z; end;
Write(a[i]:4);
end;
Writeln;
Writeln('Количество замен: ',k);
readkey;
end.
1
gayazik
2 / 2 / 0
Регистрация: 06.05.2011
Сообщений: 31
29.05.2011, 17:57  [ТС] 3
Спасибо вам большое!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2011, 17:57

Заменить все члены последовательности, большие 7, числом 7. Найти количество таких членов
Больще семи. N-натуральное , a , a ,... a -целые. Заменить все больше 7 члены...

Заменить все меньшие 7 члены последовательности числом 7 и вычислить их количество
Даны число n,числа А1,...,Аn. Заменить все меньше 7 члены последовательности...

Дана последовательность целых чисел. Заменить все элементы, меньшие заданного числа, этим числом
Дана последовательность целых чисел. 1)Заменить все положительные элементы...


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

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

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