М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
66vdv1
66vdv1
01.08.2021 12:31 •  Информатика

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

👇
Ответ:
nastyshabos
nastyshabos
01.08.2021

1)

const n=31;

var a:array[1..n] of integer;

i,s,k:integer; 

begin

Randomize;

for i:=1 to n do

 begin

 a[i]:=random(41)-20;

 write(a[i]:4);

 end;

writeln;

s:=0; k:=0;

for i:=1 to n do

 if a[i]>0 then begin s:=s+a[i]; k:=k+1; end;

writeln('Средняя температура дней с оттепелью = ',s/k:4:2);

end.


Пример:

 -7  4 17-13 20 -8 12 11 15-17 -5 15-17 -4 14-12  3-20  6 -8-14 -8 18 17  6 -9 16 10 17 20-15

Средняя температура дней с оттепелью = 13.00


2)

const m=10;

var a:array[1..m] of integer;

i,s:integer; 

begin

Randomize;

for i:=1 to m do

 begin

 a[i]:=random(21);

 write(a[i]:4);

 end;

writeln;

s:=0;

for i:=1 to m do 

 if i mod 2 = 1 then s:=s+a[i];

writeln('s = ',s);

for i:=1 to m do 

 if i mod 2 = 0 then a[i]:=s;

for i:=1 to m do write(a[i]:4);

writeln;

end.


Пример:

 14   9   0   8   6   2   2  16   1  16

s = 23

 14  23   0  23   6  23   2  23   1  23


Подробнее - на -

4,7(14 оценок)
Открыть все ответы
Ответ:
Anvar666
Anvar666
01.08.2021

1 набор текста;

2 вырезание кусков текста, запоминание их в течении текущего сеанса работы, а также в виде отдельных файлов;

3 вставка кусков в нужное место текста;

4 замена слов одно на другое частично или полностью по всему тексту;

5 нахождение в тексте нужных слов или предложений;

6 форматирование текста, т.е. придание ему определенного вида по следующим параметрам: ширина текстовой колонки, абзац, поля с обеих сторон, верхнее и нижнее поле, расстояние между строками, выравнивание края строк;

7 автоматическая разбивка текста на страницы с заданным числом строк;

8 автоматическая нумерация страниц;

9 автоматический ввод подзаголовков в нижней или верхней части страницы;

10 выделение части текста жирным, наклонным или подчеркнутым шрифтом;

11 переключение программы для работы с другим алфавитом;

12 табуляция строк, т.е. создание постоянных интервалов для представления текста в виде колонок;

13 при вводе текста вы упираетесь в конец строки, Word автоматически делает переход на следующую строку;

14 если при вводе текста делается опечатка, функция автокоррекции автоматически ее исправляет. А функция автоматической проверки орфографии подчеркивает неправильно написанные слова красной волнистой линией, чтобы их было легче увидеть и исправить;

15 если пользоваться дефисами для выделения пунктов списка, употреблять дроби, знак торговой марки или другие специальные символы, функция автоформатирования будет сама их корректировать;

16 возможность вставки в текст формул, таблиц, рисунков;

17 возможность создания нескольких текстовых колонок на одной страницы;

18 выбор готовых стилей и шаблонов;

19 для представления текста в виде таблицы можно, конечно, пользоваться и табулятором, однако Microsoft Word предлагает гораздо более эффективные средства. А если таблица содержит цифровые данные, то их легко превратить в диаграмму;

20 режим предварительного просмотра позволяет увидеть документ в том виде, в каком он выйдет из печати. Кроме того, он дает возможность отобразить сразу все страницы, что удобно для внесения изменений перед распечаткой.

4,6(73 оценок)
Ответ:
Cyndyma
Cyndyma
01.08.2021
Программу надо сформатировать и тогда её структура будет видна лучше.
А чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой".

var
  s, k: integer;
label
  met;
begin
  s:=-12;
  k:=90;
  Writeln('s=',s,', k=',k);
  s:=s+10;
  Writeln('s=',s);
met:
  Writeln('Метка met:');
  k:=k+10; Write('k=',k);
  if k<200 then s:=50 else s:=s+k;
  Writeln(', s=',s);
  if k<200 then goto met;
  Writeln('Результат: s=',s)
end.

Результат выполнения программы:
s=-12, k=90
s=-2
Метка met:
k=100, s=50
Метка met:
k=110, s=50
Метка met:
k=120, s=50
Метка met:
k=130, s=50
Метка met:
k=140, s=50
Метка met:
k=150, s=50
Метка met:
k=160, s=50
Метка met:
k=170, s=50
Метка met:
k=180, s=50
Метка met:
k=190, s=50
Метка met:
k=200, s=250
Результат: s=250
4,4(22 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ