Program n1;
var a,min,max,i,n: integer;
begin
readln(n);
readln(a);
min:=a;
max:=a;
for i:=2 to n do
begin
readln(a);
if a>max then max:=a;
if a<min then min:=a;
end;
writeln('min=',min);
write('max=',max);
end.
5)
Он напечатает 135
4) пока не понял сейчас еще подумаю
Var
n, i: integer;
begin
n := 0;
while (n <= 1) or (n > 10) do
begin
write('Введите n в диапазоне от 2 до 10 = ');
readln(n);
end;
for i := 1 to 9 do
writeln(n, ' * ', i, ' = ', n * i);
end.
без проверки
var
n, i: integer;
begin
write('Введите n в диапазоне от 2 до 10 = ');
readln(n);
for i := 1 to 9 do
writeln(n, ' * ', i, ' = ', n * i);
end.
Ответ: г.
А) Выдает строку, которую задал.
Б) получается бессмысленный цикл, так как условие цикла "ПОКА" противоречит условию "ЕСЛИ". Цикл не будет выполняться.
В) выдаёт ту же строку.
Г) сортирует в порядке возрастания.
Решение смотри во вложении при вводе" 8, 2, 5".
1. Скретч
2. Какие смайлы можно использовать, а какие нет
3. Как делать презентации
4. Поведение в интернете
5. Поведение за компом