Напишите пожалуйста программы на языке Паскаль!!! Очень нужно! Первая программа: ввод и вывод рандомного числа))) вторая программа: надо вывести самое наименьшее число(на основе первой)) пожалуйста!
Ответы
Ответ дал:
0
Первая
var
i,min:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(1,100);
write(mas[i], ' ');
end;
end.
Вторая
var
i,min:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(1,100);
write(mas[i], ' ');
end;
writeln('');
min:=mas[1];
for i:=1 to 10 do
begin
if min>mas[i] then
min:=mas[i];
end;writeln('min = ', min);
end.
var
i,min:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(1,100);
write(mas[i], ' ');
end;
end.
Вторая
var
i,min:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(1,100);
write(mas[i], ' ');
end;
writeln('');
min:=mas[1];
for i:=1 to 10 do
begin
if min>mas[i] then
min:=mas[i];
end;writeln('min = ', min);
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад