Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
если массив состоит из 10 элементов то код программы:
const
n=10;
var
a: array[1..n] of integer;
i,min: integer;
begin
for i: =1 to n do read(a[i]); {вводишь заданный массив}
min: =32767;
for i: =1 to n do
if a[i]< min then min: =a[i];
write(min);
end;
var a,b: string; begin cls; read(a); b: =a; write('b')end.
program xxx;
var i, k, d, e, s : integer;
k: =0;
for i: = 10 to 99 do
d: = i div 10;
e: = i mod 10;
s: =d + e;
if i mod s = 0 then k: =k+1
write ('кол-во чисел которые делятся на сумму своих цифр=', k);
readln
end.
Популярные вопросы