Предмет: Русский язык, автор: karapetsmbatyan

Помогите пожалуйста.
Сочинение первый снег

Ответы

Автор ответа: tbolotina
2
Однажды - это может случиться в начале зимы или в конце осени - ты просыпаешься и чувствуешь, что будто бы случилось что-то необыкновенное. Даже просто глянув на окно, понимаешь, сегодня на улице светлее, чем обычно. А уже выглянув в окно, удивишься и обрадуешься: выпал первый зимний снег! Первый снег - значит начало зимы. Хотя снег еще может растаять, воздух потеплеть, все равно снег - это знак того, что зима пришла.
Для детей первый зимний снег - настоящее раздолье. Сразу же все выбегают на улицу и начинают строить снеговиков, играть в снежки, кататься на санках и лыжах. Главное, хорошо одеться, взять перчатки или варежки, чтобы снег не морозил руки. И вот уже можно лепить снежки, строить снеговую башню.
Все радуются первому снегу, кроме водителей городского транспорта: им в этот день работать нелегко.
Первый снегопад - самый красивый. Снег нежный, чистый, лежит на земле, как белый пух. Все им укрыто: и дороги, и лужайки, и опавшая осенью листва.
Интересные вопросы
Предмет: Алгебра, автор: HotDoggie
Предмет: Информатика, автор: IlyaKustov16
Решение нужно на Бейсике !!!!!!

Дан массив, содержащий 2014 положительных целых чисел. Напишите на одном из языков программирования программу, которая находит сумму локальных максимумов этого массива, значение которых не кратно 5.
Локальным максимумом называется элемент массива, который больше всех своих соседей. Например, в массиве из 6 элементов, содержащем числа 4, 6, 12, 7, 3, 8, есть два локальных максимума: это элементы, равные 12 и 8. Программа должна вывести сумму подходящих элементов, значения элементов выводить не нужно. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.
 
Бейсик


N=2014
DIM A(N) AS INTEGER
DIM I, J, K AS INTEGER
FOR I = 1 TO N
INPUT A(I)
NEXT I

END



Паскаль
const
N=2014;
var
a: array [1..N] of integer;
i, j, k: integer;
begin
for i:=1 to N do
readln(a[i]);

end.

 
В качестве ответа вам необходимо привести фрагмент программы, который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например, Free Pascal 2.4). В этом случае Вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии.
Предмет: Литература, автор: zagladsluydmila