Необходимо реализовать это на delphi. на форму поместить во всю клиентскую область компонент ttabbednotebook, содержащий две страницы. на первой странице поместить компоненты timage, tbitbtn и topenpicturedialog. компонент tbitbtn должен иметь кроме текста пиктограмму для каждого состояния кнопки. при нажатии на кнопку tbitbtn нужно запускать диалог открытия файла с рисунком и поместить его содержимое в компонент timage, при этом на дисплее должно появляться сообщение об открытии файла с типового диалога showmessage. на второй странице компонента ttabbednotebook поместить компоненты ttimer, tgauge и tcolordrid. компонент ttimer должен изменением движка в компоненте tgauge, который должен представлять собой панель спидометра с текстом процентного заполнения этой области. с компонента tcolorgrid предусмотреть изменение цвета фона и заполнения в компоненте tgauge. все визуальные компоненты должны иметь всплывающие подсказки (hint).
Python
print('Задание1---------------------------------------------')
a=input().split(' ')
#a=['Россия', 'Беларусь', 'Казахстан', 'Украина', 'Китай', 'Албания', \
# 'Турция', 'Франция', 'Германия', 'Канада', 'США', 'Япония', 'Индия']
print(a)
print(sorted(a))
print()
print('Задание2---------------------------------------------')
b=[int(i) for i in input().split()]
#b=[2, 3, 4, 5, 6, 7, 8, 2, 4, 9, 2]
print(b)
c=0
for i in b:
if b.count(i) > c:
val=i
print(i)
print()
print('Задание3---------------------------------------------')
c=[int(i) for i in input().split(',')]
#a=[2, 3, 4, 5, 6, 7, 8, 2, 4, 9, 2]
cort=tuple(c)
print(c)
print(cort)
напутано было со скобками(Begin - end) и убрал два цикла
program z_2;
var
x:array[1..100] of integer;
y:array[1..100] of integer;
z:real;
i,n:integer;
s1,s2:integer;
procedure sums(var s1,s2:integer);
begin
s1:=0;
write ('n=');
readln(n);
for i:=1 to n do begin
write('x[',i,']=');
readln(x[i]);
if x[i]>0 then s1:=s1+x[i];
end;
s2:=0;
for i:=1 to n do begin
write('y[',i,']=');
readln(y[i]);
if y[i]<0 then s2:=s2+y[i];
end;
end;
begin
sums(s1,s2);
z:=(s1+s2)/2;
writeln('z=',z:4:4);
end.
(*2 вариант немного модифицированный*)
program z_2;
const
n=15;
m=20;
var
x:array[0..n-1] of integer;
y:array[0..m-1] of integer;
z:real;
i, s1, s2, a,b :integer;
function sums(s : array of integer; k, p :integer): integer;
begin
sums := 0;
for i:=0 to k-1 do
if p*s[i]>0 then sums:=sums + s[i];
end;
begin
for i:=0 to n-1 do begin
write('x[',i+1,']=');
readln(x[i]);
end;
for i:=0 to m-1 do begin
write('y[',i+1,']=');
readln(y[i]);
end;
z:=(sums(x, n, 1) + sums(y, m, -1))/2;
writeln('z=',z:4:4);
end.