Код вот такой, блок-схему сможешь написать по комментам var a: array [1..100] of integer; n, i, max, min: integer; ans: real; begin writeln('введите кол-во эллементов массива (от 1 до 100)'); readln(n); // cчитывается кол-во элементов read(a[1]); // cчитывается первый элемент массива max : = a[1]; //a[1] принимается за максимальный элемент min : = a[1]; //a[1] принимается за минимальный элемент for i : = 2 to n do begin // цикл от 2 до n read(a[i]); // cчитывается i-тый элемент массива if (max < a[i]) then // если max меньше нового эллемента обновить max max : = a[i] else if (min > a[i]) then // если min больше нового эллемента обновить min min : = a[i]; end; ans : = max / min; //присвоить переменной ans ответ на writeln(ans); // вывести ответ end.
sigidinv
12.03.2021
Program mas; var mas, p_mas: array[1..15] of integer; i: integer; begin randomize; for i: = 1 to 15 do begin mas[i] : = random(6) + 7; p_mas[i] : = mas[i]; end; mas[8] : = mas[10] + 5; mas[10] : = mas[13]; writeln('первоначальный массив: '); for i : = 1 to 15 do write(p_mas[i], ' '); writeln(crlf + 'изменённый массив: '); for i : = 1 to 15 do write(mas[i], ' '); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Переведите в десятичную систему следующие числа: 1011 в 2 степени =? 473 в 8 степени =?
ответ:
=8+2+1=11(10)
=4*64+7*8+3=315(10)
не в степени, а по основанию