0 / 0 / 1
Регистрация: 10.11.2012
Сообщений: 15
1

Дан массив из n чисел. Все четные элементы умножить на 3, а к нечетным прибавить 2

11.11.2012, 07:10. Показов 2082. Ответов 1
Метки нет (Все метки)

Дан массив из n чисел. Все четные элементы умножить на 3, а к нечетным прибавить 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
const n=10;
  var a:array [1..n] of integer;
   Ch,H,b:integer; i:integer;
begin
  Randomize;
  for i:=1 to n do
  begin
  a[i]:=Random (20)-15;
  write (a[i],'  ');
end;
 begin
 b:=0;
 b:=a[i];
 for i:=1 to n do;
  if b mod 2 = 0 then Ch:=b*3;
  writeln;
  writeln (Ch);
end;
begin
  for i:=1 to n do;
  if b mod 2 =1 then H:=b+2;
  writeln;
  writeln (H)
  end;
  end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2012, 07:10
Ответы с готовыми решениями:

Дан массив целых чисел из 10 элементов.Все элементы кратные 10 заменить 0;Все нечетные элементы удвоить, а четные уменьшить на 2;
Дан массив целых чисел из 50 элементов. Все элементы кратные 10 заменить 0; Все нечетные...

Дан массив целых чисел. Все его элементы умножить на последний элемент
Дан массив целых чисел. Все его элементы умножить на последний элемент

Дан массив целых чисел. Напечатать все четные элементы
Использование условий для изменения элементов массива и вывода их на экран 6.3) Дан массив целых...

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

1
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,443
Записей в блоге: 1
11.11.2012, 09:17 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const n=10;
 var a:array [1..n] of integer;
 i:integer;
 begin
 Randomize;
 for i:=1 to n do
 begin
 a[i]:=Random (20)-15;
 write (a[i],' ');
 end;
 for i:=1 to n do
 if A[i] mod 2 = 0 then A[i]:=A[i]*3
  else A[i]:=A[i]+2;
 writeln;
 for i:=1 to n do
  write (a[i],' ');
 end.
Надо проверять и менять значения массива а не как вы в переменную значение массива занесли в цикле его меняете...
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.11.2012, 09:17
Помогаю со студенческими работами здесь

В матрице, записанной в файл, четные элементы разделить на 4, а к нечетным прибавить 10
Вот условие задачи: В матрице A(6,6) четные элементы разделить на 4, а к нечетным прибавить 10....

Дан массив из n целых чисел.Удвоить все элементы послед-ти, значения которых четные.
ПОМОГИТЕ пожалуйста решить!Дан массив из n целых чисел.Удвоить все элементы послед-ти, значения...

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

Дан массив целых чисел. Вывести все четные элементы массива, стоящие на нечетных местах
Не могу понять как это сделать :(


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru