Составить программу назначения стипендии студентам по результатам сессии, используя следующие правила:

uses crt;
const max=30;
type TStud=record
           fam:string[15];
           ocn:array[1..4] of integer;
           srb:real;
           end;
var sp:array[1..max] of Tstud;
    n,i,j,k,p:integer;
    pr:real;
begin
repeat
write('Количество студентов до ',max,' n=');
readln(n);
until n in [1..max];
for i:=1 to n do
 begin
  writeln('Студент ',i);
  with sp[i] do
   begin
    write(' Фамилия: ');readln(fam);
    writeln(' Четыре оценки (2..5):');
    srb:=0;
    for j:=1 to 4 do
    repeat
    write('оценка ',j,': ');readln(ocn[j]);
    srb:=srb+ocn[j];
    until ocn[j] in [2..5];
    srb:=srb/4;
   end;
 end;
clrscr;
writeln('Полный список группы:');
writeln('-----------------------------------');
writeln('|    Фамилия    | Оценки | Ср.балл|');
writeln('-----------------------------------');
for i:=1 to n do
with sp[i] do
 begin
   gotoXY(1,whereY); write('| ',fam);
   gotoXY(17,whereY);write('|');
   for j:=1 to 4 do
   write(ocn[j]:2);
   gotoXY(26,whereY);write('| ',srb:6:2);
   gotoXY(35,whereY);writeln('|');
  end;
writeln('-----------------------------------');
write('Press Enter...');
readln;
clrscr;
writeln('Повышенная стипендия:');
k:=0;
writeln('-----------------------------------');
writeln('|    Фамилия    | Оценки | Ср.балл|');
writeln('-----------------------------------');
for i:=1 to n do
with sp[i] do
if srb=5.0 then
 begin
   k:=1;
   gotoXY(1,whereY); write('| ',fam);
   gotoXY(17,whereY);write('|');
   for j:=1 to 4 do
   write(ocn[j]:2);
   gotoXY(26,whereY);write('| ',srb:6:2);
   gotoXY(35,whereY);writeln('|');
  end;
writeln('-----------------------------------');
if k=0 then writeln('Таких студентов нет.');
write('Press Enter...');
readln;
clrscr;
writeln('Обычная стипендия:');
k:=0;
writeln('-----------------------------------');
writeln('|    Фамилия    | Оценки | Ср.балл|');
writeln('-----------------------------------');
for i:=1 to n do
with sp[i] do
 begin
  p:=0;
  while(j<=4)and(p=0) do
  if ocn[j]<4 then p:=1
  else inc(j);
  if (p=0)and(srb<5.0) then
   begin
    k:=1;
    gotoXY(1,whereY); write('| ',fam);
    gotoXY(17,whereY);write('|');
    for j:=1 to 4 do
    write(ocn[j]:2);
    gotoXY(26,whereY);write('| ',srb:6:2);
    gotoXY(35,whereY);writeln('|');
   end;
 end;
writeln('-----------------------------------');
if k=0 then writeln('Таких студентов нет.');
end.

uses crt;
const max=30;
type TStud=record
           fam:string[15];
           oc:array[1..3]of byte;
           sr:real;
           end;
var sp:array[1..max] of Tstud;
    n,i,j,k,p:integer;
begin
clrscr;
repeat
write('Количество студентов до ',max,' n=');
readln(n);
until n in [1..max];
for i:=1 to n do
  begin
    writeln('Студент ',i);
    write(' Фамилия: ');readln(sp[i].fam);
    sp[i].sr:=0;
    for j:=1 to 3 do
       begin
         repeat
           write(' Оценка ',j,'=');
           readln(sp[i].oc[j]);
         until sp[i].oc[j] in [3..5];
         sp[i].sr:=sp[i].sr+sp[i].oc[j];
       end;
    sp[i].sr:=sp[i].sr/3;
  end;
clrscr;
writeln('Список группы:':30);
writeln('--------------------------------------');
writeln('|    Фамилия   |  Оценки   | Ср.балл |');
writeln('--------------------------------------');
for i:=1 to n do
 begin
   gotoXY(1,whereY); write('| ',sp[i].fam);
   gotoXY(16,whereY);write('|');
   for j:=1 to 3 do write(sp[i].oc[j]:3);
   gotoXY(28,whereY);write('|',sp[i].sr:6:2);
   gotoXY(38,whereY);writeln('|');
  end;
writeln('--------------------------------------');
write('Press Enter...');
readln;
clrscr;
writeln('Назначена повышенная стипендия:');
k:=0;
writeln('--------------------------------------');
writeln('|    Фамилия   |  Оценки   | Ср.балл |');
writeln('--------------------------------------');
for i:=1 to n do
if sp[i].sr=5.0 then
 begin
  k:=1;
  gotoXY(1,whereY); write('| ',sp[i].fam);
  gotoXY(16,whereY);write('|');
  for j:=1 to 3 do write(sp[i].oc[j]:3);
  gotoXY(28,whereY);write('|',sp[i].sr:6:2);
  gotoXY(38,whereY);writeln('|');
 end;
writeln('--------------------------------------');
if k=0 then writeln('Назначенных на повышенную стипендию нет.');
write('Press Enter...');
readln;
clrscr;
writeln('Назначена обычная стипендия:');
k:=0;
writeln('--------------------------------------');
writeln('|    Фамилия   |  Оценки   | Ср.балл |');
writeln('--------------------------------------');
for i:=1 to n do
 begin
  p:=0;
  for j:=1 to 3 do
  if (sp[i].oc[j]=5)or(sp[i].oc[j]=4) then p:=p+1;
  if(p=3)and(sp[i].sr<5.0) then
   begin
    k:=1;
    gotoXY(1,whereY); write('| ',sp[i].fam);
    gotoXY(16,whereY);write('|');
    for j:=1 to 3 do write(sp[i].oc[j]:3);
    gotoXY(28,whereY);write('|',sp[i].sr:6:2);
    gotoXY(38,whereY);writeln('|');
   end;
 end;
writeln('--------------------------------------');
if k=0 then writeln('Назначенных на обычную стипендию нет.');
write('Press Enter...');
readln
end.

Зима в Санкт-Петербурге.

В Санкт-Петербурге устанавливается пониженная температура в декабре, снежный покров слегка укутывает улицы и дома, а тончайший лёд сковывает реки и каналы.

Зимний период времени можно охарактеризовать как капризный и изменчивый. Причиной являются морские воздушные массы, приносимые западными и юго-западными ветрами с Балтийского моря. Поэтому, часто обильные снегопады сменяются дождём и туманом, а непродолжительные холодные периоды, чередуются с оттепелями, подгоняющими столбик термометра к нулевой, а то и к плюсовой отметке. Самыми холодными месяцами в Питере считаются январь и февраль. В среднем же зимняя температура колеблется от -8 до -10,3 °С. Однако, минимальные температуры могут достигать -40°С. Окончание зимы приходит незаметно, ближе к середине марта. В последние годы наблюдается тенденция сокращения средней продолжительности зимы в Санкт-Петербурге на три недели. Температурные сдвиги вызваны деятельностью человека, зачастую приводящей к выбросам парниковых газов в атмосферу.

Зимой жители и гости северной столицы могут испытывать некоторые неудобства. Связано это, во многом, с изменчивостью погоды: в тёплые периоды снег превращается в мокрую кашу, которая затрудняет передвижение по городу, а когда наступают холода, то на дорогах появляется гололедица, которая часто приводит к травмам, ушибам и вывихам. Кроме того, частая смена температур приводит к появлению сосулек на крышах домов. С ними пыталась бороться бывшая глава города В. Матвиенко. Сосульки нужно сбивать или ставить заградительные знаки на тротуарах вблизи домов, чтобы уберечь людей от опасности.

Зима в Санкт-Петербурге начинается немного позднее, чем в других регионах нашей Родины. Лишь к началу декабря устанавливается пониженная температура, снежный покров слегка укутывает улицы и дома, а тончайший, как венецианское стекло, лед сковывает реки и каналы.

Зимний период времени здесь можно охарактеризовать как относительно мягкий, но зачастую – капризный и изменчивый. Обуславливается это в первую очередь влиянием морских воздушных масс, приносимых западными и юго-западными ветрами с Атлантического океана и Балтийского моря. Поэтому так часто обильные снегопады сменяются дождем и туманом, а непродолжительные холодные периоды, когда температура достигает -12 °С, чередуются с оттепелями, подгоняющими столбик термометра к нулевой, а то и к плюсовой отметке. Самыми холодными месяцами в Питере по праву считаются январь и февраль. В среднем же зимняя температура колеблется от -8 до -10,3 °С. Однако, в исключительные годы, минимальные температуры могут достигать -40°С. Так, например, случилось зимой 2005 года, когда трескучие морозы, коварно охватившие практически всю территорию России, не обошли стороной и город-герой на Неве, и Питер, так же как многие другие города замерзал от сорокоградусных морозов. Окончание зимы приходит незаметно, ближе к середине марта. Нельзя не упомянуть, что в последние годы наблюдается тенденция сокращения средней продолжительности зимы в Петербурге на три недели. Этот факт отмечается ректором Государственного гидрометеорологического университета Львом Карлиным, который считает, что температурные сдвиги вызваны деятельностью человека, зачастую приводящей к выбросам парниковых газов в атмосферу.

Справедливым будет отметить, что зимой жители и гости северной столицы могут испытывать некоторые неудобства. Связано это во многом именно с изменчивостью погоды: в теплые периоды снег превращается в мокрую кашу, которая затрудняет передвижение по го-роду и так вредит нашей обуви; когда же наступают холода, на дорогах появляется жесткий наст и гололедица, что часто приводит к травмам, ушибам и вывихам. Кроме того, постоянные ветра, туманность и повышенная влажность ослабляют иммунитет и могут вызвать простуду или другие бронхо-легочные заболевания. Непостоянство температурного режима в некоторой степени омрачает и детскую жизнь, ведь такие развлечения как езда на санках, катание на коньках, на лыжах или просто с ледяной горки становятся практически недоступными.

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