const
n = 30;
var
a: array [1..n] of integer;
i, mini: integer;
begin
for i := 1 to n do
begin
a[i] := random(30);
write(a[i], ' ');
end;
writeln;
mini := 1;
for i := 1 to n do
if a[i] < a[mini] then
mini := i;
writeln('A[', mini, ']=', a[mini]);
end.
Сорри но мы его ещё не писали
354
235, 15
472, 35
417, 165
317, 35
Сколько элементов массива больше, чем первый.
Ответ: 4
# дано число если оно положительное то вывести прямоугольник иначе квадрат
# Код на ruby 2.2.3p173
def zadanie(c)
if c > 0
p "priamougol`nik"
return
end
p "kvadrat"
end
# Примеры применения
zadanie(10)
zadanie(-10)
zadanie(0)