Не знаю.Я только в 4-ом классе. Что писать я незнаю
1)-622
2)-26Е
3)-11001101
4)-110100100
5)-212.8125
Ответ:
var a:array[1..5]of integer;
i,m:integer;
begin
m:=0;
write('Массив: ');
for i:= 1 to 5 do
begin
a[i]:= random(21)-10;
write(a[i]:4);
if (a[i]>0) and (i mod 2 = 0) then m:=a[i]
end;
writeln;
for i:= 1 to 5 do
if (a[i]>0) and (i mod 2 = 0)and (a[i] < m) then m:=a[i];
if m=0 then writeln ('В массиве нет положительных элементов среди элементов с чётными номерами')
else writeln('Наименьший положительный элемент среди элементов с чётными номерами равен ',m)
end.
2.
var a,b:integer;
begin
write('a = ');
readln(a);
b:=(a mod 10)*100 + (a div 10 mod 10)*10 + a div 100;
writeln('b = ',b);
end.
Пример:
a = 194
b = 491
3.
var n,k5,k2,k1:integer;
begin
write('n = ');
readln(n);
k5:=n div 5;
k2:=(n-k5*5) div 2;
k1:=n-k5*5-k2*2;
writeln('5 кг - ',k5,', 2 кг - ',k2,', 1 кг - ',k1);
end.
Пример:
n = 18
5 кг - 3, 2 кг - 1, 1 кг - 1