ОЧЕНЬ СРОЧНО!! Составить программу,формирующую произвольный массив(с помощью фун...

maxpanko2016 @maxpanko2016

August 2021 1 3 Report

ОЧЕНЬ СРОЧНО!! Составить программу,формирующую произвольный массив(с помощью функции Random) из 40 элементов. Все элементы,большие 50,заменить на -6

Answers & Comments

niveskrpon Const Sz = 40;
var a: array [1..Sz] of integer;
N: integer;
i: integer;
k:integer;

begin
k:=50;
N := 40;

for i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива: ');

for i:=1 to N do write(a[i],' ');
writeln();

begin
for i:=1 to n do begin
if a[i] > N then
a[i] := -6 end;
writeln('Заменяем элементы > 50 на -6: ');

for i:=1 to N do
write(a[i],' ');
writeln();
end;
end.

3 votes Thanks 1

maxpanko2016 Спасибо,ты лучший!

nizhe predstavlen fragment programmy obrabatyvayushej odnomernyj celochislennyj mas8afceb4ced8c9c5472efd9fa59665821 72572

Answer

Answers & Comments

nizhe predstavlen fragment programmy obrabatyvayushej odnomernyj celochislennyj mas8afceb4ced8c9c5472efd9fa59665821 72572

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

Helpful Links

Helpful Social