Вмассиве хранится информация о среднедневной температуре ноября (в с°) 1.опишите данный массив . 2.заполните массив случайными целыми числами из отрезка [-3; 7] . 3.выведите элементы данного массива в строчку через пробел . 4.выведите даты дней,когда температура была выше нуля . 5.подсчитайте количество дней с нулевой температурой . 6.выведите самую низкую температуру месяца. 7.найдите среднюю температуру ноября .

👇

Ответ:

mikki60

23.10.2020

Program day;
var
a: array[1..30] of integer;
b, s, i, min: integer;
begin
min := 999;
Randomize;
for i := 1 to 30 do   begin
a[i] := random(9, -3);
s := s + a[i];
Write(a[i]:3);
end;
Writeln;
Writeln('Ниже нуля ');
for i := 1 to 30 do   begin if a[i] > 0 then Write(i,'-го ');
end;
if a[i] = 0 then b := b + 1;
Writeln;
for i := 1 to 30 do
if a[i] < min then min := a[i];
Writeln('Самая низкая температура - ', min);
Writeln('Средняя температура ноября ', s / 30);
end.

4,4(96 оценок)

Открыть все ответы

Ответ:

Bbob

23.10.2020

Материк, носящий название Австралия, занимает площадь 7 659 861 км² в Южном полушарии. Береговая линия имеет длину 35 тыс. км, ширина континента составляет 4000 км, а длина достигает 3700 км.Рядом с Австралией находятся такие острова, как Тасмания и Новая Гвинея. Западное и южное побережье Австралии омываются водами Индийского океана, а восточное и северное побережья – морями Тихого океана.Это Тиморское, Коралловое, Арафурское и Тасманово моря. Также возле северо-восточного побережья Австралии находится самый крупный коралловый риф в мире, Большой Барьерный риф тянется более чем на 2000 км. Ширина его может достигать 150 км.Крайней западной точкой материка является мыс Стип-Пойнт, восточной – мыс Байрона, северной крайней точкой является мыс Йорк, а южная точка Австралии – это мыс Саут-Пойнт.В большой мере Австралия расположена в жарком тепловом поясе, а берега материка немного изрезаны. На юге Австралии находится Большой Австралийский залив, а залив Карпентария находится на севере, как и два полуострова Кейп-Йорк и Арнемленд. Внутренними морями Австралия связана с Юго-Восточной Азией.История исследования материкаСамый маленький из всех, этот материк пришлось искать довольно долго. В 1606 году был открыт пролив, который отделяет Новую Гвинею от материка. Этот пролив был назван именем открывателя – Торрес. И в этом же году мореплаватель Янсзон оказался на побережье залива Карпентария.Через несколько десятилетий, в 1643 году, было доказано, что Австралия представляет собой единую сушу. Доказал это мореплаватель Тасман и также он открыл остров, который впоследствии был назван его именем.В 1770 году Джеймс Кук, будучи известным английским мореплавателем, оказался на восточном побережье самой Австралии. С тех пор начался процесс колонизации англичанами, изучение Австралии, как отдельного континента, и хозяйственное освоение ее территории.Земли Австралии стали называть Новым Южным Уэльсом. В те времена Австралия стала местом ссылки для преступников, осужденных за мелкие нарушения. Позднее поселение, считавшееся британской колонией, было названо Сиднеем. Оно было основано 26 января в 1788 году – основателем является капитан Артур Филип.А территория Тасмании присоединилась к остальным землям Австралии в 1829 году. Середина 19 века – это начало «золотой лихорадки» на территории Австралии, именно для этого периода характерны волны массовой иммиграции в Австралию.А в 1901 году – 1 января – Австралия стала независимым государством, образовав Австралийский Союз.

4,6(68 оценок)

Ответ:

pka004

23.10.2020

Procedure P(Const A:integer; Var p:integer);
Var
   K:real;
   d:integer;
Begin
if A > 1 then
   if (A = 2)or(A = 3) then p:=p+1
   else
      if A mod 2 <> 0 then
         Begin
         K:=Sqrt(A);
         d:=3;
         While (d<K)and(A mod d <> 0) do
            d:=d+2;
         if A mod d <> 0 then
            Begin
            p:=p+1;
            Write('(простое)')
            End
         End;
End;
Const
   N = 20;
Var
   A:array[1..N] of integer;
   i,k:integer;
Begin
Randomize;
k:=0;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(99)+1;
    Write(' ',A[i]);
    P(A[i],k);
    End;
WriteLn;
WriteLn('Кол-во простых чисел в массиве: ',k);
End.

4,7(16 оценок)

Это интересно:

Кулинария-и-гостеприимство

28.09.2021

Шаг за шагом: Как пользоваться штопором и открыть бутылку вина...

Компьютеры-и-электроника

09.10.2022

Как сделать стекло в игре Minecraft: подробный гайд...

Здоровье

14.01.2023

Очистка организма от кокаина: научно проверенные методы...

27.05.2020