1. Слева - глобальная, справа - локальная
2. Левый верхний блок - плюс
Левый нижний - минус
Правый верхний - плюс
Правый нижний - минус
Uses crt;
const n=10;
var a: array [1..n] of integer;
x,min:integer;
begin
for x:=1 to n do begin
write('a[',x,']:');
readln(a[x]);
if a[x]>0 then min:=x;
end;
for x:=1 to n do
if (a[x]>0) and (a[x]<a[min]) then min:=x;
writeln;
write('a[',min,']:',a[min]);
<span>end.</span>
Ответ:
Скорее всего 1
Объяснение:
Но я не уверен насчет "ху"
Во втором скорее всего не пройдет End
В третьем var
в четвертом begin
Тебе проще составить простенькие программы и посмотреть самому
Var
a, b: real;
begin
readln(a, b);
if a <> 5.5 then a := a * 2;
if b <> 5.5 then b := b * 2;
writeln(a, ' ', b );
end.
Фотографии - графическая
письма - текстовая, числовая, графическая
школьный журнал - текстовая, числовая