Var mas: array[1..15] of integer;
i, min, max, nMin, nMax:integer;
begin
writeln('Введите 15 элементов массива');
for i := 1 to 15 do
readln(mas[i]);
min := mas[1];
max := mas[1];
nMin := 1;
nMax := 1;
for i := 1 to 15 do
begin
if max < mas[i] then
begin
max := mas[i];
nMax := i;
end;
if min > mas[i] then
begin
min := mas[i];
nMin := i;
end;
end;
writeln('Максимальное число и его номер ', max, ' ', nMax, ' Минимальное число и его номер ', min, ' ', nMin);
end.
Это клавиши F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12
Ответ:
x = 2; y = -0.5;
x = 10, y = 0.166667;
x = 5; y = 1;
Объяснение:
Вот сама программа, на питоне как я понял
x = 0
y = 0.0
x = input('Введите x = ')
print('y равен ' , 1/(int(x)-4))
Var a,b, d:integer;
begin
read (d);
a:=d div 100;
b:=d div 10 mod 10;
if a>b then Write ('перша більша') else Write ('друга більша')
end.
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('Слов: ',ReadlnString('Строка:').ToWords.Count)
end.
<u>Пример</u>
Строка: А роза упала на лапу Азора.
Слов: 6