ПОМОГИТЕ. 30 БАЛЛОВ Создать и напечатать одномерный массив случайными числами от 0 до 9. Если есть в нем элементы, равные 8, то заменить их 0. язык паскаль!
Answers & Comments
ZEBRRAHEAD
USES crt; VAR a:array [1..999] of integer; i,n:integer; begin randomize; WRITELN ('Введите количество элементов массива: '); READLN (n); WRITELN ('Исходный массив: '); FOR i:=1 to n do begin a[i]:=RANDOM(10); WRITE (a[i],' '); end; WRITELN; WRITELN ('Измененный массив: '); FOR i:=1 to n do if a[i]=8 then begin a[i]:=0; WRITE (a[i],' '); end else WRITE (a[i],' '); END.
Answers & Comments
VAR a:array [1..999] of integer;
i,n:integer;
begin
randomize;
WRITELN ('Введите количество элементов массива: ');
READLN (n);
WRITELN ('Исходный массив: ');
FOR i:=1 to n do
begin
a[i]:=RANDOM(10);
WRITE (a[i],' ');
end;
WRITELN;
WRITELN ('Измененный массив: ');
FOR i:=1 to n do
if a[i]=8 then
begin
a[i]:=0;
WRITE (a[i],' ');
end
else
WRITE (a[i],' ');
END.