Const c:array [1..10] of integer = (-7,3,0,2,-1,4,8,-9,1,6);
var b,d:array [1..10] of integer;
p,k,max,i,j,tmp:integer;
begin
p:=1;
for i:=1 to 10 do
if c[i] > 0 then p:=p*c[i];
k:=0;
for i:=1 to 10 do
if c[i] < 0 then inc(k);
d:=c;
max:=d[1];
for i:=2 to 10 do
if c[i] > max then max:=c[i];
writeln ('Max: ',max);
writeln ('Kol-vo otriz. elementov: ',k);
writeln ('Proizvedenie: ',p);
for i:=1 to 10 do
if c[i] >= 0 then b[i]:=c[i]+10 else
if c[i] < 0 then b[i]:=c[i]*c[i];
writeln ('New massiv: ');
for i:=1 to 10 do write (b[i],' ');
writeln;
for i:=1 to 9 do
for j:=i+1 to 10 do
if d[j] > d[i] then
begin
tmp:=d[j];
d[j]:=d[i];
d[i]:=tmp;
end;
for i:=1 to 10 do write (d[i],' ');
writeln;
end.
Var
b:integer;
begin
readln(b);
case b of
0:
writeln('Нуль');
1:
writeln('Один');
2:
writeln('Два');
3:
writeln('Три');
4:
writeln('Четыре');
5:
writeln('Пять');
6:
writeln('Шесть');
7:
writeln('Семь');
8:
writeln('Восемь');
9:
writeln('Девять');
end;
<span>end.</span>
с помощью интернета люди могут общаться друг с другом
Была суббота, но Вася шёл в школу. По дороге он встретил своего друга Митю, который предложил сходить в кино, потому что по субботам не учился и был свободен.1) Вася отказал сходить в кино, потому что не хотел лишний раз прогуливать школу, но договорился с Митей на воскресенье. К тому же Вася хотел исправить двойку по русскому. "Как знаешь" - ответил Митя. В школе одноклассник Васи Лёша предложил ему поиграть в мячик в коридоре, всё равно ведь делать нечего.-Да он же маленький, теннисный! Нам ничего не будет!1. Вася отказался от этой затеи. Он пошёл в класс и стал повторять правило и на уроке исправил свою двойку, ответив на отлично. А Лёша разбил мячиком лампу и его вызвали к директору.2. Вася согласился. Всё равно на перемене было нечего делать. Мальчики весело играли, несколько раз попали в проходящих мимо ребят, и вдруг Лёша попал мячиком в лампу. Она разбилась. Мальчиков вызвали к директору, и после обещаний поговорить с родителями и уличительной беседы водворили на урок. После таких событий мальчики всё забыли и получили ещё по двойке.2) Вася согласился. Он так давно не видел Митю! К тому же, в хорошую, солнечную погоду так не хотелось идти в школу. Мальчики пошли в кино и по дороге заметили ларёк с мороженым.Вот бы по мороженке! Жаль, что у меня денег нет на мороженое, только на билеты хватит, - сказал Митя.Вася тоже хотел мороженое, да и Митю бы угостил. У него были деньги, но на подарок маме на 8 марта. На другое ему нельзя было их тратить. 1. Вася решил не тратить эти деньги. Он сказал Мите, что у него денег совсем нет и ребята пошли в кино. Они благополучно посмотрели фильм. Вася поругали, за то, что он не пошёл в школу, но двойку он исправил в понедельник.2. Вася решил - гулять так гулять! Он купил себе и Мите по мороженому, после чего сумма в его кошельке заметно уменьшилась. После этого мальчики пошли смотреть кино. С удовольствием насладившись фильмом, Вася зашёл и за подарком маме. Он исправил двойку в понедельник, а своё отсутствие в школе объяснил родителм тем, что ходил в магазин.
<span>Программа выводящая одно число: сумму всех чисел , кратных 4 и оканчивающихся на 6.</span>