Program gt;
var b:array[1..100]of integer;
r,i,n,q,min,t:integer;
begin
read(N);
q:=0;
for i:=1 to n do
begin
read(b[i]);
if(b[i]>0)then begin
q:=q+1;
if(q=1)then begin
r:=i;
t:=b[i];
end;
end;
end;
min:=b[1];
for i:=2 to n do
if(b[i]<min)then min:=b[i];
for i:=1 to n do
begin
if(b[i]=min)then b[i]:=t;
if(i=r)then b[i]:=min;
write(b[i],' ');
end;
end.
Можно воспользоваться функцией <span>UpCase</span> или сделать 33 if'а.
А) a, b, S
б) karts, karkol, tetts, tetkol
V₁= 24*1000*2*16*t = 45 мбайт
V₂= 4*32*1000*16*t = x мбайт
Пропорция
x=
Uses crt;
var
a,b,c,d,e,f:real;
begin
writeln('Введите числа c и d');
readln(c,d);
writeln('Введите числа a и b');
readln(a,b);
if (c:=a * a) then begin
writeln('Число a является квадратом c');
else
writeln('Число a не является квадратом c');
end;
if (d:=b * b * b) then begin
writeln('Число d является кубом b');
else
writeln('Число d не является кубом b');
end;
End.