Без языка живет, не ест не пьет, а говорит и поет.

радио,телевизор. ну не забудь )) кстати если можешь мне)) на счёт єтого вопроса пиши в

думаю что это радио ))                                                                     

если нет, то напиши мне ))

 

волк,медведь,лиса,заяц   - животные леса

платье,пиджак,рубашка,брюки - одежда

кино пальто,радио,шоссе - существительные среднего рода

береза,тополь,кедр,ель,сосна - деревья

яблоня,груша,слива,вишня - плодовые деревья

молоко,кефир,творог,сметана - молочные продукты

молоток,клещи,топор,пила - интсрументы плотника

смородина,крыжовник,малина - кустраники

корабль,колокол,колесо,корова - существительные с непроверяемыми гласными в корне слова

корова,сорока,ворона,дорога - существительные с орфограммой оро

печь,речь,дочь,ночь, - существительные 3 склонения

луч,меч,плащ,овощ - существительные мужского рода

нуль,сто,петьдесят,тысяча - числительные

минута,секунда,час,сутки - единицы измерения времени

февраль,май,август,сентябрь - месяцы года

май,август,октябрь,декабрь - месыцы гоад, в которых 31 день

1,2,5,9 - числа

1,2,11,29 - простые числа (делитель только 1 и само число)

пишите, , язык, который вам нужен. пишу на наиболее вероятном: pascal.program massiv;

uses crt;

var a: array[1..10] of integer; s: real; i,k, p: integer;

begin

clrscr;

randomize;

writeln ('задан массив: ');

for i: =1 to 10 do

begin

a[i]: =random(100); { массива}

s: =s+a[i]; { считаем сразу сумму элементов}

write (a[i]: 4); {вывод на экран}

end;

s: =s/10;

for i: =1 to 10 do

if a[i]> s then p: =p+1;

if p mod   2= 0 then {проверка на четность}

                          for i: =1 to 10 do a[i]: =a[i]+i

                              else 

                                        begin

                                        k: =a[5];

                                        a[5]: =a[6];

                                        a[6]: =k; {обмен значений а5 и а6. если считать их центральными элементами, через третью переменную}

                                        end;

writeln; {дабы у вас ничего не слиплось}

for i: =1 to 10 do write (a[i]: 4); {вывод полученного массива на экран} 

end.