assistant
?>

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

Информатика

Ответы

dkvsadovoe

ответ:program qwe;

var

a:array[1..30] of integer; //объявляем массив а целых чисел из 30 элементов

i,k,j:integer; //объявляем i,k,j целого типа

begin

randomize; //подключаем генерирование случайных чисел

for i:=1 to 30 do //циклом от 1 до 30 включительно

begin

a:=random(50); //заполняем каждый элемент массива случайными числами

//от 0 до 50 (не включая 50)

write(a,' '); //выводим в строчку полученный элемент и

//добавляем после него пробел

end;

writeln; //переход на новую строку

for j:=1 to 3 do //циклом от 1 до 3 влючительно

//т. к. в июне 30 дней, то и декад - 3

begin

k:=0; //обнуляем k, что бы каждую декажу считать заново

for i:=(1+10*(j-1)) to 10+10*(j-1) do //циклом от начала каждог десятка

//например с 1, с 11 и с 21 по конец каждого десятка

//например по 10, по 20 и по 30

k:=k+a; //к тому что у нас было прибавляем очередной элемент

writeln(k,' осадков за ',j,' декаду'); //выводим результат

end;

readln; //для задержки экрана.

end.

код иногда некорректно отображается на "ответах"

stmr29

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

Когда в алгоритме есть действия, которые иногда нужно пропускать (в зависимости от какого-то условия).

Когда в алгоритме нужно записать выбор  тех или иных действий (в зависимости от какого-нибудь условия).

В блок-схеме условие ветвления записывается в ромбе, из которого выходят обязательно 2 стрелки. Стрелка «Да» указывает на команды, которые должны выполняться, когда условие соблюдается. Стрелка «Нет» указывает на команды, которые должны выполнятся, когда условие не соблюдается.

Пимкина Сергеевич

Was a young man in love with a beautiful girl? What did the girl say to the young man one day? Where did a young man go? How old was the girl? How many roses did a man in the shopsencl?

Дополнен менее минуты назад

молодой человек был влюблен в красавицу. они очень часто встречались и много времени проводили вместе. они говорили об интересных книгах, фильмах о театральной работе. однажды девушка сказала молодому человеку: - завтра у меня день рождения. Вы придете, чтобы отпраздновать его с другими друзьями? -О, Конечно сказал молодой человек. - Но сначала я пришлю вам розы, - сказал один из продавцов, - чтобы вы послали их девушке на следующий день. Человек в магазине знал молодого человека очень хорошо, потому что он часто покупал цветы в своем магазине. ВОТ ПЕРЕВОД .

Объяснение:

Was a young man in love with a beautiful girl? What did the girl say to the young man one day? Where did a young man go? How old was the girl? How many roses did a man in the shopsencl?

Дополнен менее минуты назад

молодой человек был влюблен в красавицу. они очень часто встречались и много времени проводили вместе. они говорили об интересных книгах, фильмах о театральной работе. однажды девушка сказала молодому человеку: - завтра у меня день рождения. Вы придете, чтобы отпраздновать его с другими друзьями? -О, Конечно сказал молодой человек. - Но сначала я пришлю вам розы, - сказал один из продавцов, - чтобы вы послали их девушке на следующий день. Человек в магазине знал молодого человека очень хорошо, потому что он часто покупал цветы в своем магазине. ВОТ ПЕРЕВОД .

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

даю 20б составить правильно программу в Паскаль В массиве хранится информация о количестве осадков, выпавших за каждый день июня. Определить общее количество осадков, выпавших за каждую декаду этого месяца. Ребят, проверочная, решите правильно
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

dddddd68
kovansckaya201313
Павловна897
Andei
gunel1988alieva
staskamolbio5152
Агибалов428
kuharchuks
pereverzev
Anastasiya Yevseeva948
andreevaalisa
Кононова-БЕСКРОВНАЯ
Karpova
tanyamurashova11352
Pastel-sova