Цитата:
Сообщение от Даshyта
В школе задали задание:
В данном массиве чисел с1, с2, ..., с25 поменять местами максимальный элемент с последним отрицательным элементом.
Нужно решить это на языке схем, описать на естественном языке и написать программу в Pascal.
Люди добрые, ПОМОГИТЕ!!! Я ничего не понимаю в ЭТОМ. А если не выполню получу три двойки((( Не хотелось бы...  |
Насчет первых двух пунктов - ничем помочь не могу, а по третьему - пожалуйста, как вариант (если устроит):
Код:
Var
C:Array[1..25] of Integer;
i,i_max,i_neg:Byte;
Maxim,Dummy:Integer;
BEGIN
Randomize;
Maxim:=-100;
Writeln('Initial array:');
For i:=1 to 25 do
Begin
C[i]:=50-Random(100);
Write(C[i]:4);
If C[i]>Maxim then
begin
Maxim:=C[i];
i_max:=i;
end;
If C[i]<0 then
i_neg:=i;
End;
Writeln;
Writeln;
Writeln('Changed array:');
Dummy:=C[i_max];
C[i_max]:=C[i_neg];
C[i_neg]:=Dummy;
For i:=1 to 25 do
Write(C[i]:4);
Readln;
END.