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

@kyru6ka · Регистрация: 03.03.2010

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

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

Pascal

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. Найти максимальный элемент и его индексы среди значений, лежащих на главной диагонали матрицы и выше нее.

@c00le® · 02.06.2010, 15:58

Pascal

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.

Опции темы