Истина это true почти во всех языках программирования,
а ложь это false.
суждение - это ввод данных,
а умозаключение - вывод данных.
Const n=15;
var a:array[1..n]of integer;
i,min,k:integer;
begin
for i:=1 to n do a[i]:=Random(100)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
min:=a[1];
for i:=1 to n do
if (a[i]<min) and (a[i]>0) then begin
min:=a[i];
k:=i;
end;
write('минимальный из положительных элементов массива ',min,', его порядковый номер ',k);
<span>end.</span>
Var x,s:integer;
begin
readln(x);readln(s);
while x<>5 do begin
s:=x;
x:=x+1;
s:=s+x;
end;
writeln(s);writeln(x);
end.
Если будут неправильно то попросите меня исправить
Полное имя файла включает в себя путь и имя(название) файла.
4 Мбайт = 4000 Кбайт = 4000000 байт = 32000000 бит
Про ступень не знаю