Заменить первый отрицательный элемент нулём. Паскаль АБЦ. Обязательно нужно использовать команду рандомайз. Приведённый ниже пример не является верным. В нём не хватает команды Рандомайз var a:array[1..10] of integer; i,t:integ...
Заменить первый отрицательный элемент нулём. Паскаль АБЦ. Обязательно нужно использовать команду рандомайз. Приведённый ниже пример не является верным. В нём не хватает команды Рандомайз
var a:array[1..10] of integer;
i,t:integer;
Begin
for i := 1 to 10 do
read(a[i]);
for i := 1 to 10 do begin
if (a[i]<0) and t=0 then begin
a[i]:=0;
t:=1;
end;
writeln(a[i]);
end;
End.
Помогите пожалуйста
Гость
Ответ(ы) на вопрос:
Гостьconst
n=10;
var
a:array[1..n] of integer;
i:integer;
t:boolean;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
a[i]:=Random(51)-25;
Write(a[i]:4)
end;
Writeln;
t:=false; i:=1;
repeat
t:=(a[i]<0);
if t then a[i]:=0;
Inc(i)
until t;
Writeln('Результирующий массив');
for i := 1 to n do Write(a[i]:4)
end.
Тестовое решение:
Исходный массив
13 12 -19 -23 12 -11 -22 -13 23 -1
Результирующий массив
13 12 0 -23 12 -11 -22 -13 23 -1
Не нашли ответ?
Похожие вопросы