Var mas: array[1..15] of integer;
i, min, max, nMin, nMax:integer;
begin
writeln('Введите 15 элементов массива');
for i := 1 to 15 do
readln(mas[i]);
min := mas[1];
max := mas[1];
nMin := 1;
nMax := 1;
for i := 1 to 15 do
begin
if max < mas[i] then
begin
max := mas[i];
nMax := i;
end;
if min > mas[i] then
begin
min := mas[i];
nMin := i;
end;
end;
writeln('Максимальное число и его номер ', max, ' ', nMax, ' Минимальное число и его номер ', min, ' ', nMin);
end.
ОТДЕЛ Задание+;
ПЕР
A: РЯД 10 ИЗ ЦЕЛ;
сч, произведение: ЦЕЛ;
УКАЗ
произведение := 0;
ОТ сч := 0 ДО РАЗМЕР(A) - 1 ВЫП
ЕСЛИ A[сч] > 0 ТО
произведение := произведение * A[сч]
КОН
КОН
КОН Задание.
Вот смотри, составил блок-схему, что то не понятно, пиши
1) 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J
2) 3*10 в 4(степени) + 2*10 в 3 + 4*10 во 2 + 7*10 в 1 + 8*10 в 0 + 3* 10 в -1 + 8*10 в -2 = 3*10000 + 2*1000 +4*100 + 7*10 + 8*1 + 0,3 + 0,08 = 32478,38
Program al;
var n:integer;
begin
writeln('n=');
readln(n);
if (n >9) and (n<100) then writeln(n);
if (n > 99) and (n<1000) then writeln(n div 10);
if (n >1000) and (n<10000) then writeln(n div 100);
if n>10000 then writeln(n div 1000);
readln;
<span>end.</span>