Yvision.kzYvision.kz
kk
Разное
Разное
399 773 постов41 подписчиков
Всяко-разно
0
03:00, 24 ноября 2011

pascal массив

пример: даны целые числа а1...аn  создайте новый (цепь -по моему массив)тiзбек :если аbs(аi) не равно mах(аi...аn), тогда заменить аi- в массиве нулями , в противном случае заменить аi- на 1 . (i=1...n) =>индекс

 

program esep1;
uses crt;
var n,k,max,i:integer;
a: array[1..100] of integer;
b: array[1..100] of integer;
begin
clrscr;
write('Vvedite n->');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
b[i]:=a[i];
max:=a[1];
for i:=2 to n do
begin
if (a[i]>max) then max:=a[i];
end;
for i:=1 to n do
if (abs(a[i])=max) then b[i]:=1
else b[i]:=0;
writeln;
writeln;
writeln('Massiv a');
writeln;
for i:=1 to n do
write('a[',i,']=',a[i],' ');
writeln;
writeln;
writeln('Massiv b');
writeln;
for i:=1 to n do
write('b[',i,']=',b[i],' ');
readkey;
end.

   

 
0
292
0