1. введите N.
2. цикл for от 1 до N будем вводить 'элементы массива x[i]/
3. в цыкле от 1 до N бедем выводить на экран массив writeln(x[i]) и считаем сумму. если в программе выполнять, то это будет выглядеть так
write('введите N'); readln(n);
for i:=1 to n do begin write('введите ',i,' элемент массива');
readln (x[i]);
end;
sum:=0;
for i:=1 t0 n do begin
write(' ',x[i]);
sum:=sum+x[i];
end;
write('а сумма всех элементов = ',sum);
Program prim3;
uses crt;
var i,n,r,max,min,imax,imin:integer;
a:array[1..10000] of integer;
begin
clrscr;
randomize;
write('число элементов n= ');
readln(n);
for i:=1 to n do
begin
a[i]:=random(45)-22;
{Получаем случайные числа и выводим их на экран.}
write(a[i],' ');
end;
{За начальный максимум (минимум) берем первый элемент массива.}
min:=a[1]; max:=a[1];
for i:=1 to n do
begin
{Если найдется элемент, меньший MIN, то MIN будет равен этому элементу. Одновременно запоминаем индекс промежуточного минимума.}
if a[i]<=min then
begin
min:=a[i]; imin:=i;
end;
{Если найдется элемент, больший МАХ, то МАХ будет равен этому элементу. Одновременно запоминаем индекс промежуточного максимума.}
if a[i]>= max then
begin
max:=a[i]; imax:=i;
end;
end;
{Печатаем минимальный элемент и его индекс.}
writeln(min,' номер' , imin);
{Печатаем максимальный элемент и его индекс.}
writeln(max, ' номер' ,imax);
readkey;
end.
Если А делится на 55, то оно делится на 5 и на 11. Это уже три утверждения, но истинными могут быть только два. То есть А не делится на 55.
Если А делится на 11, нам нужно выбрать еще два истинных утверждения. Но делимость на 5 и на 55 будут следовать друг из друга, а меньше 10 А быть не может, т.к. 11 больше 10.
Остается только вариант, когда А меньше 10, делится на 5, не делится на 11 и 55. Т.е. А = 5
Программа считывает число А.
Язык программирования: Паскаль.
var
A : integer;
begin
readln (A);
writeln ('в', (1200 - A) / A, 'раз');
end.
<span>обилием возможностей для редактирования как текстового массива целиком, так и отдельных его частей.</span>