Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
happyg
0 / 0 / 0
Регистрация: 27.05.2015
Сообщений: 1
#1

Заменить все отрицательные элементы массива их квадратами - Pascal ABC

27.05.2015, 22:47. Просмотров 301. Ответов 0
Метки нет (Все метки)

В одномерном массиве, состоящем из n элементов, вычислить:
- количество отрицательных элементов массива, расположенных на четных местах;
- сумму четных элементов массива, расположенных на нечетных местах.
Заменить все отрицательные элементы массива их квадратами.

Сижу уже дня три, не получается составить, решил попросить помощи тут.

Добавлено через 1 час 22 минуты
составил вроде, если есть знатоки посмотрите
у меня вроде все сошлось
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program a322;
const n=10;
var m:array[1..n]of integer;
i,k,sum,b:integer;
begin
 for i:=1 to n do read(m[i]);
 readln;
 for i:=1 to n do if ((m[i] mod 2=0) and (m[i]<0)) then inc(k);
 writeln('Количество отрицательных элементов на четных местах - ',k);
 k:=0;
 sum:=0;
 for i:=1 to n do if ((i mod 2=1) and (m[i] mod 2=0)) then sum:=sum+m[i];
 writeln('Сумма четных элементов массива, на нечетных местах - ',sum);
 for i:=1 to n do if m[i]<0 then m[i]:=sqr(m[i]);
 writeln('Переработанный массив с квадратами отрицательных чисел:');
 for i:=1 to n do write(m[i]:7);
 writeln;
 end.
забыл что нельзя редактировать, думал что новое пишу, больно не бейте
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2015, 22:47
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Заменить все отрицательные элементы массива их квадратами (Pascal ABC):

В матрицы заменить все отрицательные элементы их квадратами - Pascal ABC
Данная целочисленная матрица размером n × m . В матрицы заменить все отрицательные элементы их квадратами и расположить столбцы матрицы по...

Все отрицательные элементы в строке матрицы, заменить их квадратами - Pascal ABC
Даны три целые матрицы размером n×n. Преобразовать каждую из них по следующему правилу: все отрицательные элементы в строке, следующей за...

Отрицательные элементы массива заменить квадратами их значений - Pascal ABC
помогите пожалуйста решить задачу. :gsad: ввести одномерный массив X(N) . отрицательные элементы в нём заменить квадратами их значений....

Отрицательные элементы массива заменить их модулями, а положительные квадратами - Pascal ABC
Дан одномерный целочисленный массив. составить программу для решения задачи: Отрицательные элементы заменить их модулями, а положительные...

Заменить все элементы массива их квадратами - Pascal ABC
Добрый день! решила задачи, а программа не идет помогите пожалуйста найти ошибки. 1 Дан целочисленный массив В. Заменить все его...

Отрицательные элементы заменить их модулями, а положительные квадратами - Pascal ABC
1.Отрицательные элементы заменить их модулями, а положительные квадратами.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.05.2015, 22:47
Привет! Вот еще темы с ответами:

Все отрицательные члены последовательности заменить их квадратами - Pascal ABC
3) Тема: Линейные списки Если в последовательности целых чисел, организованной как линейный список, есть хотя бы один член меньше 20, то...

В одномерном числовом массиве заменить отрицательные элементы их квадратами - Pascal ABC
Помогите решить 2 задачи с массивом! 2. В одномерном числовом массиве А(n) замените отрицательные элементы их квадратами. Выведите...

Все отрицательные элементы массива заменить нулями, элементы больше 3 увеличить на 1 - Pascal ABC
Дан массив А={-2;-1;3;0;3;4;5;5;8}. Нужно сформировать новый массив N по следующим правилам: все отрицательные элементы заменить нулями,...

Все отрицательные компоненты вещественного вектора b (10) заменить их квадратами - Pascal ABC
Помогите написать программу. Все отрицательные компоненты вещественного вектора b(10) заменить их квадратами, а все положительные...


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

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

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