Существительные признаки слов агроном , брейк , видео клип , дюйп жалюзи , , мультипликация пастила , универсальный , кто может по быстрее , а то в школу апазаю

агроном - занимается сельским хозяйством,брейк - это танец,видеоклип - последавательность кадров, дюйм - мера длины,жалюзи -   особенные шторы на окно,- особый вид рыбы, пастила особый вид жвачки, универсальный - многофункциональный.

паскаль.

 

немного не понятно: от 1 до 10   это относится только к нечетным числам или ко всем? ну напишу программу которая просто все числа вычисляет, если сама не сможешь поставить условие ограничения, то сообщи точное условие и напиши мне в личку

 

program jjj;

var a: array [1..10] of integer; i,summa,proizv: integer;

begin

for i: =1 to 10 do begin

    writeln('напишите элемент массива номер ',i); read(a[i]);

                        end;

for i: =1 to 10 do begin

                              if a[i] mod 2=0 then summa: =summa+a[i] else

                                                        proizv: =proizv*a[i];

                          end;

writeln(summa,'   ',proizv); readln;

end.

Program u2; const n=6; var i,max: integer; a,b: array [1..n] of integer; begin a[1]: =2; a[2]: =5; a[3]: =7; a[4]: =-2; a[5]: =0; a[6]: =8; writeln('a: '); for i: =1 to n do write(a[i]: 3); writeln; writeln('b: '); for i: =1 to n do    begin   b[i]: = (a[i]-1);   write(b[i]: 3);   end; writeln; max: =a[1]; for i: =1 to n do   begin   if a[i]> max then max: = a[i];   b[i]: =max;   end; writeln('new b: '); for i: =1 to n do write(b[i]: 3); writeln; end. результат: a:   2   5   7 -2   0   8 b:   1   4   6 -3 -1   7 new b:   2   5   7   7   7   8