Ответы на вопрос:
program minmax;
type massiv=array[1..15]of integer;
var v: massiv;
i, min, max: integer;
begin
randomize;
v[1]: =5+random(46);
min: =v[1]; max: =v[1];
for i: =2 to 15 do
begin
v[i]: =5+random(46);
if v[i]< min then min: =v[i];
if v[i]> max then max: =v[i];
end;
writeln(' massiv: ');
for i: =1 to 15 do
write(v[i], ' ');
writeln;
writeln('min = ',min);
writeln('max = ',max);
end.
Популярно: Информатика
-
динани106.03.2021 10:48
-
123maladauskas27.06.2021 07:53
-
dragogogo12.04.2020 05:53
-
Glebforst21.07.2022 14:53
-
Nastionka675710.12.2022 01:33
-
JustKotOneLove10.06.2023 04:08
-
r297354822.03.2023 06:23
-
Анита100223.01.2021 15:49
-
yoooyooo12.06.2020 03:44
-
андрейиванович21.03.2020 04:10