1. Информатика
  2. Программу,которая выводит на экран

Программу,которая выводит на экран в строчку 8 случайных чисел из промежутка от 15 до 100 и находит максимальное из них.(с uses crt, и попроще

dimon564557 dimon564557    1   03.10.2019 11:00    3

Ответы
елен9 елен9  09.10.2020 13:57

uses crt;  

var i,m,a:integer;  

begin  

clrscr;  

m:=15;  

for i:= 1 to 8 do  

begin  

a:=Random(86)+15;  

if a>m then m:=a;  

write (a,' ')  

end;  

writeln;  

writeln('Максимальное число: ',m);

readln

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
VERLIA VERLIA  28.03.2021 18:52
Нужно написать программу на языке Python...
лика487 лика487  28.03.2021 18:56
A) S:=0;for i:=1 to 5 do S:=S+a[i];S=?Б) S:=0;for i:=1 to 9 do if i mod 3=0 then S:=S+a[i];S=?B) S:=0;for i:=1 to 9 do if a[i] 2 then S=S+a[i];S=?Г) S:=0;for i=1 to 5 do if (a[i]...
marinamih marinamih  25.09.2019 01:40
ответьте ! примеры текстовых хотя бы один или ! !...
МастерФейк МастерФейк  25.09.2019 01:40
Вычислите необходимый объем видеопамяти для графического режима, если разрешение экрана монитора 1024x768, глубина цвета 32 бита...
frostdog0609 frostdog0609  08.06.2019 09:10
Pascal abc.создать массив, содержащий неповторяющиеся элементы заданного массива a[n]....
ЯсминаАбд ЯсминаАбд  08.06.2019 09:10
Если в слове а отбросить первые две буквы, то получится слово в. если в слове в заменить одну согласную букву на другую, то получится слово с. а и в - название цифр десятичной системы...
Marina4578 Marina4578  08.06.2019 09:10
Пусть даны вещественные числа x^1, x^2, x^3, y^1, y^2, y^3 принадлежит ли начало координат треугольнику с вершинами (x^1,y^1) (x^2,y^2) (x^3, y^3)...
АльтЛанд АльтЛанд  08.06.2019 09:00
Что такое диалоговые информационные службы? каковы их общие характеристики?...
nick313 nick313  08.06.2019 09:00
Дано натуральное число n. если оно делится на 4, вывести на экран ответ n=4k ( где k соответствующее частное), если остаток от деления на 4 равен 1, n=4k+1, если остаток на 4 равен...
danil782 danil782  08.06.2019 09:00
Вычислите: 101112 + 7610 = … ответ запишите в двоичной и десятичной системах счисления....

Популярные вопросы