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

Получить последовательность в которой все элементы с нечетными значениями исходной удвоены

01.06.2010, 23:54. Показов 900. Ответов 1
Метки нет (Все метки)

1. нУжно исправить не выводит все а только нечётные *2 , мучаюсь не получается....

. Даны целые числа n, a1,…,an, где n≤100. Получить последовательность b1,…,bn, которая отличается от исходной тем, что все элементы с нечетными значениями удвоены, и определить количество четных элементов.




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
uses CRT;
Type
    T=array [1..100]of integer;
Var l,m,n,i,x:integer;
    b,a:T;
Function  F(n:integer; a:t; var b:t; l:integer):integer;
    BEGIN
For i:=1 to n do
     If Odd(A[i]) then
       begin
b[i]:=a[i]*2;
writeln;
      writeln('b[',i,']=',b[i]);
End;
       end;
 Begin
    CLRSCR;
    Randomize;
    writeln('Zadaite kol-vo elementov massiva');
    readln(n);
     L:=0;
     For i:=1 to N do begin write('a[',i,']=');
      readln(a[i]);
       end;
      M:=F(n,a,b,l);
      writeln('L=  ',l);
      readln;
 
      end.

2. Нужно сделать с процедурой... кто сможет сделайте пожалуйста.

Даны натуральное число n и квадратная матрица порядка n целочисленных элементов, где n≤12. Найти максимальный элемент и его индексы среди значений, лежащих на главной диагонали матрицы и выше нее.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.06.2010, 23:54
Ответы с готовыми решениями:

Получить последовательность, в которой все члены исходной удвоены
Добрые люди как?

Получить последовательность, которая отличается от исходной тем, что все нечетные элементы удвоены
Даны натуральное число N и последовательность A1, A2, ... An, состоящая из N целых чисел. Получить...

Получить последовательность, которая отличается от исходной тем, что все нечетные элементы удвоены
a = -100, b = 107 1) Дана последовательность действительных чисел А1, …, А50. Получить...

Получить последовательность ,которая отличается от исходной тем , что все нечетные элементы удвоены
Даны натуральное N и последовательность A 1,A 2,…,A N , состоящая из N целых чисел. Получить...

1
138 / 138 / 65
Регистрация: 20.03.2009
Сообщений: 235
02.06.2010, 15:58 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
26
27
28
29
uses CRT;
Type
    T=array [1..100]of integer;
Var l,m,n,i,x:integer;
    b,a:T;
Function  F(n:integer; a:t; var b:t; l:integer):integer;
    BEGIN
For i:=1 to n do
     begin
     if not odd(a[i]) then begin inc(l);   end; end;
       For i:=1 to n do  begin
       if odd(a[i]) then a[i]:=a[i]*2;
     b[i]:=a[i];
     writeln;
      writeln('b[',i,']=',b[i]);  end; writeln('L=',l);
End;
 
 Begin
    CLRSCR;
    Randomize;
    writeln('Zadaite kol-vo elementov massiva');
    readln(n);
     L:=0;
     For i:=1 to N do begin write('a[',i,']=');
      readln(a[i]);
       end;
      M:=F(n,a,b,l);
      readln;
      end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2010, 15:58
Помогаю со студенческими работами здесь

Массив: Получить последовательность В(10), которая отличается от исходной тем, что все нечетные элементы удвоены.
Дан массив А(10). Необходимо получить последовательность В(10), которая отличается от исходной тем,...

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

Преобразовать массив ,увеличив все элементы с нечётными значениями в три раза, элементы с чётными значениями
Составьте программу,которая заполняет массив a случайными целыми числами в диапазоне от 1 до 10,...

Из заданной последовательности получить другую, все члены которой удвоены
Помогите исправить ошибки, пожалуйста: Даны целые числе a1,...,a50. Получить последовательность...


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

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

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