Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
школьница96
0 / 0 / 0
Регистрация: 05.05.2013
Сообщений: 7
1

В массиве Х(13) положительные элементы уменьшить вдвое, а отрицательные увеличить на 5

10.05.2013, 17:31. Просмотров 1092. Ответов 3
Метки нет (Все метки)

1.В массиве Х(13) положительные элементы уменьшить вдвое, а отрицательные увеличить на 5. Вывести на экран полученный массив. В полученном массиве найти наименьший элемент.

2.В массиве А(20) найти сумму наибольшего и наименьшего элементов.

3.В массиве У(n) найдите количество элементов кратных 6 и их произведение.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2013, 17:31
Ответы с готовыми решениями:

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

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

В полученном массиве положительные элементы уменьшите вдвое, а отрицательные замените на значения их индексов
Задан массив AX (N). Добавить массив С(К). Выполнить сортировку включением. В...

Если в массиве кол-во элементов меньше 3, то все элементы увеличить вдвое
Тема:Одномерные числовые массивы. 1.Если в массиве кол-во элементов меньше 3...

Заменить в массиве все отрицательные элементы на положительные
Дан массив T,заменить в нем все отрицательные элементы на положительные. const...

3
Midian
220 / 220 / 170
Регистрация: 31.03.2013
Сообщений: 1,963
Завершенные тесты: 6
10.05.2013, 18:57 2
1)
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
27
28
29
30
31
32
33
34
35
36
37
38
const n = 13;
var
arr: array [1..n] of real;
i: byte;
min: real;
begin
writeln('Заполните массив из 13 элементов:');
for i:=1 to n do
begin
readln(arr[i]);
end;
writeln('Введенный массив:');
for i:=1 to n do
begin
write(arr[i],' ');
end;
writeln;
min:=arr[1];
for i:=1 to n do
if (arr[i] < min) then
begin
min:=arr[i];
end;
for i:=1 to n do
if (arr[i] > 0) then
begin
arr[i]:=arr[i] / 2;
end
else
arr[i]:=arr[i] + 5;
writeln('Минимальный элемент массива: ',min);
writeln('Преобразованный массив:');
for i:=1 to n do
begin
write(arr[i],' ');
end;
writeln;
end.
Добавлено через 6 минут
3)
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
27
28
29
const n = 1000;
var
arr: array [1..n] of integer;
i,m,k: byte;
p: integer;
begin
write('Введите количество элементов массива:');
readln(m);
writeln('Заполните массив из ',m,' элементов:');
for i:=1 to m do
begin
readln(arr[i]);
end;
writeln('Введенный массив:');
for i:=1 to m do
begin
write(arr[i],' ');
end;
writeln;
k:=0; p:=1;
for i:=1 to m do
if (arr[i] mod 6 = 0) then
begin
inc(k);
p:=p*arr[i];
end;
writeln('Ко-во кратных 6 элементов = ',k);
writeln('Их произведение = ',p);
end.
Добавлено через 4 минуты
2)
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
27
const n = 20;
var
arr: array [1..n] of integer;
i: byte;
min,max: integer;
begin
writeln('Заполните массив из 20 элементов:');
for i:=1 to n do
begin
readln(arr[i]);
end;
writeln('Введенный массив:');
for i:=1 to n do
begin
write(arr[i],' ');
end;
writeln;
min:=arr[1]; max:=arr[1];
for i:=1 to n do
if (arr[i] < min) then
begin
min:=arr[i];
end
else
if (arr[i] > max) then max:=arr[i];
writeln('Сумма минимального и максимального элементов = ',min+max);
end.
1
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27954 / 15675 / 959
Регистрация: 15.09.2009
Сообщений: 67,837
Записей в блоге: 78
10.05.2013, 19:47 3
школьница96, на будущее - одна тема - одна задача. и прочтите таки правила форума.
0
школьница96
0 / 0 / 0
Регистрация: 05.05.2013
Сообщений: 7
11.05.2013, 15:10  [ТС] 4
хорошо, приношу свои извенения
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.05.2013, 15:10

переставить в массиве первые положительные и последние отрицательные элементы
переставить в массиве первые положительные и последние отрицательные элементы

Заменить все отрицательные числа в массиве на положительные , а положительные на отрицательные
Существует двумерный массив произвольной размерности . Заменить все...

Массив. Расположить в массиве сначала положительные, а затем отрицательные элементы массива
Расположить в массиве R сначала положительные, а затем отрицательные элементы...


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

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

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