Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Enterpris
0 / 0 / 0
Регистрация: 30.11.2013
Сообщений: 56
#1

Элементы массива стоящие на нечетных местах умножить на 5

30.11.2013, 14:10. Просмотров 376. Ответов 3
Метки нет (Все метки)

Здравствуйте. Помогите пожалуйста с программой.
Элементы массива стоящие на нечетных местах умножить на 5; найти сумму элементов получившегося массива; выдать на экран номера положительных элементов. Не использовать mod , использовать оператор цикла repeat.

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.11.2013, 14:10
Ответы с готовыми решениями:

Элементы массива Х[i] стоящие на четных местах переписать в массив Y[i] а стоящие на нечетных местах в Z[i]
Элементы массива Х стоящие на четных местах переписать в массив Y а стоящие на...

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

Удалить положительные элементы массива, стоящие на нечетных местах
Помогите сделать программу в паскале! удалить положительные элементы массива,...

Удалить из массива все четные элементы стоящие на нечетных местах.
Дан массив целых чисел. Удалить из него все четные элементы стоящие на нечетных...

Массив: Удалить из массива четные элементы,стоящие на нечетных местах.
1)четные,стоящие на нечетных местах. 2) начиная с к1 по к2(к1 и к2 вводяться с...

3
MatMaster
55 / 52 / 58
Регистрация: 04.04.2013
Сообщений: 102
30.11.2013, 18:32 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var a:array [1..10] of integer; i,sum:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do a[i]:=random(21)-10;
sum:=0;
write('Nomera polojitelnyh elementov: ');
repeat
if odd(i)=true then a[i]:=a[i]*5;
inc(sum,a[i]);
if a[i]>0 then write(i,' ');
dec(i);
until i=0;
writeln;
write('Summa=',sum);
readkey;
end.
1
Enterpris
0 / 0 / 0
Регистрация: 30.11.2013
Сообщений: 56
30.11.2013, 18:57  [ТС] #3
спасибо большое)

Добавлено через 8 минут
И еще такой вопрос, для чего здесь dec используется?
0
MatMaster
55 / 52 / 58
Регистрация: 04.04.2013
Сообщений: 102
01.12.2013, 07:41 #4
Функция dec уменьшает значение счетчика i на 1, равносильно
Pascal
1
i:=i-1;
или
Pascal
1
inc(i,-1);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.12.2013, 07:41

Все элементы массива, стоящие на нечетных местах разделить на случайное число
задача4-Сформировать одномерный целочисленный массив, содержащий случайные...

Вывести на экран сначала элементы массива, стоящие на четных местах, затем на нечетных
ВЫвести элементы массива в обратном порядке Добавлено через 2 минуты Дан...

Удалить из массива все четные элементы, стоящие на нечетных местах и сжать массив
Ребят, нужно решить задачу с помощью функций: 1. Удалить из массива все...


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

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

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