Получение новой последовательности

Категория: Delphi/Pascal
2012-01-05 22:57:19

Пусть даны целые числа а1,…а100. Получите новую последовательность из 100 целых чисел, заменяя аi нулями, если значение │аi│ не равно максимальному из аi,…а100 , и заменяя аi единицей в противном случае.(i=1,…100)

code: #pascal
Program PascalGuru;
 
var i:integer;
    a,new:array[1..100] of integer;
    max:integer;
 
begin
for i:=1 to 100 do a[i]:=0+random(27);
 
writeln('Ishodnaya posledovatelinosti:');
for i:=1 to 100 do write(a[i]:5);       writeln;
 
max:=a[1];
for i:=2 to 100 do
if a[i]>max then max:=a[i];
 
for i:=1 to 100 do
 if abs(a[i])<>max then
                        a[i]:=0
                   else
                        a[i]:=1;
 
writeln('Preobrazovannaya posledovatelinosti:');
for i:=1 to 100 do write(a[i]:5);
 
readln;
end.
Поделиться:

Похожие статьи:

теги: максимальное, последовательность, студенты, одномерный массив, массив