Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal]Обработка одномерных массивов

Автор: Константин9900 15.5.2009, 12:24

Даны две последовательности целых чисел а1,а2...аn и в1,в2...вn. Преобразовать последовательность в1,в2...вn по следующему правилу: если аi<=0, то вi увеличить в 10 раз, в противном случае вi заменить нулем. i=1,2,...,n

Автор: Stqs 15.5.2009, 21:20

жестоко. преподы звери пошли совсем

Автор: gorec323 15.5.2009, 22:17

могу чем помочь?

Автор: AndreyZ53 15.5.2009, 22:22

Код



program test;
var
 a,b:array[1..100] of integer;
 i,j,n,m:integer;
begin
 writeln('Vvedite razmer 1-go massiva');
 readln(n);
 writeln('Vvedite 1 massiv');
 for i:=1 to n do
  begin
   write('a[',i,']=');
   readln(a[i]);
  end;
 writeln('Vvedite razmer 2-go massiva');
 readln(m);
 if m>n then
  m:=n;
 for j:=1 to m do
  begin
   write('b[',j,']=');
   readln(b[j]);
  end;
 for i:=1 to n do
  begin
   if a[i]<0 then
    b[i]:=b[i]*10
   else
    b[i]:=0;
  end;
 for i:=1 to m do
  begin
   write(' ',b[i]);
  end;
 readln;
end.