page up - страница вверх
home - дома
<span>page down</span> - страница вниз
Program pr1;
Var s,k,k1,k2: integer;
Begin
write('Задайте начальное и конечное значения параметра цикла: ');
readln (k1,k2);
s:=0;
for k:=k1 to k2 do
begin
s:=s+6;
writeln(s);
end
End.
карандаш- тонкая палочка графита, сухой краски и т. п., обычно вделанная в дерево, для письма, черчения и рисования.
Не за что, надеюсь в ответ тоже будет благодарность. Прикреплен еще исходник
varn,i,min,c:integer;
a:array [1..100] of integer;
begin
n:=6;for i:=1 to n do
begin
writeln ('vvedi element massiva');
readln (a[i]);
end;
min:=a[1];
c:=1;
for i:=2 to n do
begin
if min>a[i] then begin min:=a[i];c:=i; end;
end;
writeln ('min=', min, ' nomer=',c);
readln;
<span>end.</span>