Цитата:
Сообщение от Машуня
3.Дан целочисленный массив размера N, 2<N<100. Размер массива и его элементы вводятся с клавиатуры. Обнулить все элементы кроме минимального и максимального. Результат вывести на экран.
|
Код:
VAR
i,N,Min,Max,Imin,Imax:INTEGER;
A,B:ARRAY[1..100] of INTEGER;
BEGIN
Write('N= ');
ReadLn(N);
Min:=32000;
Max:=-32000;
For i:=1 to N do
begin
Write('A[',i,']= ');
ReadLn(A[i]);
If A[i]<Min then
begin
Min:=A[i];
Imin:=i;
end;
If A[i]>Max then
begin
Max:=A[i];
Imax:=i;
end;
B[i]:=0;
end;
B[Imin]:=A[Imin];
B[Imax]:=A[Imax];
For i:=1 to N do
WriteLn(A[i]:6,B[i]:10);
ReadLn;
END.
А вторую задачку - уж попробуйте самостоятельно.