Var
a: array [1..5] of integer;
i: byte;
k: integer := Integer.MaxValue;
begin
for i := 1 to 5 do
readln(a[i]);
for i := 1 to 5 do
k := Min(k, a[i]);
writeln(k);
<span>end.</span>
0) Начало
1) Ввод массива B(n) //n - количество элементов массива
2) Объявляем пустой массив C(n)
3) k = 1
4) Цикл по i от 1 до n
4.1) Если условие А истинно, то
4.1.1) C(k) = i // Выносим номер элемента в новый массив
4.1.2) k = k+1 // Переходим к следующему элементу в массиве С.
4.1.3) Конец Если
4.2) Конец Цикла
5) Вывод сформированного массива C(k)
6) Конец
Пятизначное число в троичной системе счисления должно иметь ненулевой пятый разряд, т.е. в десятичной системе счисления его величина должна принадлежать интервалу [3^4; 3^5-1], что составляет [81;242].
В римской записи (а не системе счисления, римляне использовали десятичную) этот интервал запишется как [LXXXI;CCXLII], т.е. будут использованы символы С, I, L, X, V
var
Y: integer;
begin
Write('Y = ');
Readln(Y);
Write('Введенное целое число ',Y,' является отрицательным - ', Y < 0);
Readln
end.
const n=10;
var a:array [1..n] of integer;
i,s,k:integer;
begin
write('Массив: ');
for i:= 1 to n do
begin
a[i]:=random (16);
write (a[i],' ');
if a[i] mod 5 = 0 then
begin
s:=s+a[i];
k:=k+1
end
end;
writeln;
if k<>0 then writeln('Среднее арифметическое элементов массива, которые делятся на 5, равно: ',s/k:0:3)
else writeln ('Элементов массива, которые делятся на 5, нет.')
end.