Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
SoulBurn
0 / 0 / 0
Регистрация: 13.11.2013
Сообщений: 4
1

В заданном массиве Х 1,Х 2 … Х n изменить значение всех положительных элементов

13.11.2013, 21:26. Просмотров 836. Ответов 2
Метки нет (Все метки)

В заданном массиве Х 1,Х 2 … Х n изменить значение всех положительных элементов, умножив их значение на 5, а отрицательные элементы уменьшить вдвое, при этом подсчитать количество элементов, абсолютная величина которых не превышает 1.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.11.2013, 21:26
Ответы с готовыми решениями:

В двухмерном массиве вычислить частное от деления произведения всех положительных элементов на произведение всех отрицательных элементов
В двухмерном массиве вычислить частное от деления произведения всех...

В двухмерном массиве вычислить частное от деления суммы всех положительных элементов на сумму всех отрицательных элементов.
Ввести двухмерный массив поэлементно с помощью клавиатуры или получить ...

В массиве B(n), найти сумму всех положительных и произведение всех отрицательных элементов.
В массиве B(n), найти сумму всех положительных и произведение всех...

В заданном массиве A(N,M) найти количество положительных элементов по столбцам
В заданном массиве A(N,M) найти количество положительных элементов по столбцам....

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

2
Mexanoid
9 / 9 / 7
Регистрация: 17.06.2011
Сообщений: 48
14.11.2013, 00:08 2
Лучший ответ Сообщение было отмечено SoulBurn как решение

Решение

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
program mas1;
uses crt;
 
var
   a: array [1..999] of real;
   i,n,k:integer;
   p: real;
 
begin
     clrscr;
     k:=0;
     writeln ('vvedi razmer massiva');
     read (n);
     writeln ('vvedi ',n,' chisel v massiv a');
     for i:=1 to n do readln (a[i]);
     for i:=1 to n do
         if abs(a[i])=1
         then k:=k+1;
     for i:=1 to n do
         if a[i]<0
         then a[i]:=a[i]/2;
     for i:=1 to n do
         if a[i]>0
         then a[i]:=a[i]*5;
 
 
     for i:=1 to n do writeln (a[i]:0:2);
     writeln ('kolvo elementov ne priv abs 1  :' ,k);
     readkey;
end.
вот держи
1
SoulBurn
0 / 0 / 0
Регистрация: 13.11.2013
Сообщений: 4
14.11.2013, 00:23  [ТС] 3
Цитата Сообщение от Mexanoid Посмотреть сообщение
вот держи
Благодарю, столько раз пробовал, никак не получалось.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.11.2013, 00:23

Найти максимальный четный элемент в массиве из всех положительных элементов.
Найти максимальный четный элемент в массиве из всех положительных элементов....

Найти максимальный четный элемент в массиве из всех положительных элементов.
1.Найти максимальный четный элемент в массиве из всех положительных элементов....

В одномерном массиве A вычислить сумму S всех положительных элементов (использовать указатели)
В одномерном массиве A вычислить сумму S всех положительных элементов , причем...


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

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

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