ПОМОГИТЕ. 30 БАЛЛОВ Создать и напечатать одномерный массив случайными числами от...

Sveta20022017 @Sveta20022017

August 2022 1 26 Report

ПОМОГИТЕ. 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.

2 votes Thanks 2

Answers & Comments

blastula voznikaet v rezultate odin variant otveta 1 mitoticheskogo deleniya

sa63afe8c11bf850d66d0240a31ef35be 29818

ch027c3f70bd8b96407adc61e7636ce30f 97119

srochnov vanne est dva krana cherez pervyj kran voda nalivaetsya v vannu a cher

shematicheski izobrazite funkciyu yx v stereni koren iz pyati

yavlyaetsya li ciklicheskim algoritmom pokupka tovarov v magazine obyasnite svoj ot

h1 eto drob esli chto

proizvodnaya x 3h 1

napishite nebolshuyu skazku o golube

najti vse prinadlezhashie promezhutku p2p resheniya neravenstva tgh 1 pozhalujsta

рекомендуемые вопросы

Helpful Links

Helpful Social