Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Mexanoid
9 / 9 / 7
Регистрация: 17.06.2011
Сообщений: 48
14.11.2013, 00:08 0

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

14.11.2013, 00:08. Просмотров 819. Ответов 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,Х 2 … Х n изменить значение всех положительных элементов
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.11.2013, 00:08

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

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

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

0
Другие темы раздела
Turbo Pascal Написать программу, проверяющую принадлежность точки http://www.cyberforum.ru/turbo-pascal/thread1007017.html
Здравствуйте, помогите составить программу, проверяющую принадлежность точки с коор- динатами (х, у) заштрихованной области на плоскости. Код программы не нужен, код сделаю сам , я не могу...
Turbo Pascal Прямоугольная матрица Для прямоугольной матрицы найти минимальный из положительных и максимальный из отрицательных элементов. -------------------------------------------------------------- Общие замечания ко всем... http://www.cyberforum.ru/turbo-pascal/thread1007002.html
Интерполяционная формула Turbo Pascal
Задание 1 ) Подобрать интерполяционную формулу и с помощью этой формулы найти приближенное значение интерполируемой функции в точке x .При построении интерполяционной формулы использовать только...
Turbo Pascal Наибольший элемент массива
Есть проблема нахождения наибольшего элемента массива, в котором около 100 элементов(чисел). Если использовать условия, то это будет нереально написать столько однообразного кода, проверяя каждое...
Turbo Pascal Символьная матрица http://www.cyberforum.ru/turbo-pascal/thread1006972.html
Помогите пожалуйста полному дилетанту, нужно в символьной матрице, которая не содержит пробелов, заменить все гласные буквы на пробелы. Вывести исходную и преобразованную матрицу. Упорядочить строки...
Turbo Pascal работа со строковыми элементами дано слово состоящее из заглавных латинских букв. зашифровать это слово переставив буквы в порядке убывания их кодов. подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru