1 . Определите значение переменной Y после выполнения следующего фрагмента программы
Y:=0; i:=7;
While i>1 do begin
Y:=Y+i div2;
i:=i – 1;
end;
2. Определите значение переменной T после выполнения следующего фрагмента программы:
T:=1; i=3;
While i<=9 do begin
T:=T*(i div 3);
i:=i + 1:
end;
var arr: array [1..10] of integer;
var i,min,max:integer;
begin
for i:=1 to 10 do begin
writeln('Введите ',i,' элемент');
readln(arr[i]);
end;
min:=0;
max:=0;
for i:=1 to 10 do begin
if (arr[i]<0) then begin
if (arr[i]<min) then begin
min:=arr[i];
end;
end
else
if (arr[i]>0) then begin
if (arr[i]>max) then begin
max:= arr[i];
end;
end;
end;
writeln('Минимальный элемент среди отрицательных чисел ',min);
writeln('Максимальный элемент среди положительных чисел ',max);
end.