Южные материкиК группе Южных материков относятся Южная Америка, Африка, Австралия, обладающие многими общими чертами природы в силу сходства их географического положения и сопряженной истории формирования в составе Гондваны. Особое положение занимает Антарктида. Этот материк расположен целиком в Южном полушарии и является частью распавшейся Гондваны. Как осколок Южного суперконтинента Антарктида имеет явные черты сходства с другими гондванскими материками в строении поверхности (в геологическом строении и рельефе подледной поверхности). Однако особое географическое положение континента определяет многие уникальные черты его природы. В характеристике компонентов природы Южных материков Антарктиде выделяется особое место.Южные материки омываются водами всех океанов, кроме Северного Ледовитого океана. Антарктида не имеет сухопутных границ, как и Австралия, которая ближе всего связана с Евразией через своеобразный мост — острова и мелководные моря и проливы Малайского архипелага, которые традиционно относят к материку Евразии. Африка отделена от Евразии узкими Гибралтарским проливом и Красным морем. На крайнем северо-востоке на Суэцком перешейке граница между этими материками проходит по искусственному сооружению — Суэцкому каналу. Южная Америка граничит с Северной на Панамском перешейке. Что именно? Пиши подробнее!
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadArrInteger('Вводите численность по классам:', ReadInteger('Количество классов:')); Writeln('Число учеников в самом многочисленном классе превышает ' 'число учеников в самом малочисленном классе на ', a.Max-a.Min); Writeln('Средняя наполняемость классов равна ',Trunc(a.Average)) end.
Пример Количество классов: 6 Вводите численность по классам: 31 29 33 24 30 29 Число учеников в самом многочисленном классе превышает число учеников в самом малочисленном классе на 9 Средняя наполняемость классов равна 29
//Pascal type TPupils = record firstname, surname: string; schoolNumber: integer; end;
var f: text; s, buf: string; i, j, tmp: byte; num, countPupils: integer; A: array [1..200] of TPupils; begin assign(f, 'data.txt'); reset(f); j := 1; while not eof(f) do begin readln(f, buf); buf := buf + ' '; tmp := 1;
for i := 1 to length(buf) do begin if pos(buf[i], ' ') = 0 then s := s + buf[i] else begin if length(s) > 0 then begin case tmp of 1: begin A[j].firstname := s; Inc(tmp); end; 2: begin A[j].surname := s; Inc(tmp); end; 3: begin Val(s, num, num); A[j].schoolNumber := num; end; end; //writeln(s); s := ''; end; end; end; Inc(j); end; close(f);
write('Введите № школы: '); readln(num);
for i := 1 to 200 do begin if A[i].schoolNumber = num then //writeln(A[i].firstname, ' ', A[i].surname, ' ', // A[i].schoolNumber); Inc(countPupils); end; writeln('Количество учеников в данной школе = ', countPupils); end.