{задать массив из 10 случайных чисел в диапазоне [32,96]. вывести минимальное число массива и его индекс.}

240

305

Посмотреть ответы 2

Ответы на вопрос:

Olesya15551

Информатика

4,5(94 оценок)

Const n=10; var a: array[1..n] of integer; i,min,k: integer; begin randomize; for i: =1 to n do begin a[i]: =random(65)+32; write(a[i]: 4); end; writeln; min: =a[1]; k: =1; for i: =2 to n do if a[i]< min then begin min: =a[i]; k: =i; end; writeln('min=a[',k,']=',min); end.пример: 50 55 72 95 57 87 64 92 42 49min=a[9]=42

Dianaspbrf

Информатика

4,7(25 оценок)

var timeinsec: integer; // время в секундах color, s, m, h: byte; begin h : = 4; //часы m : = 5; //минуты s : = 23; //секунды

timeinsec : = h * 3600 + m * 60 + s; //перевод времени в секунды color : = (timeinsec div 10) mod 3; {целочисленно делим на 10, чтобы узнать сколько раз светофор изменил цвет} {потом находим остаток деления на 3(количество цветов), чтобы узнать какой сейчас цвет} case color of //вывод ответа 0: writeln('горит зеленый свет'); //0 - это зеленый свет 1: writeln('горит желтый свет'); //1 - это желтый свет 2: writeln('горит красный свет'); //2 - это крсный свет end; end.