[Hector]

Allkz, где учишься?

[Allkz]

в Казахстане в городе Шымкент там есть колледж Поллитех называеться вот там и учусь) а че?

[Hector]

У меня задания почти такие же, тока в Гомеле, Беларусь

[Allkz]

ааа ясно)

[GreyObr]

Определить:
а) среднее арифметическое элементов главной диагонали квадратной матрицы;

Код:

s:=0;
for i:=1 to n do
  s:=s+a[i,i];
sr_arifmetic:=s/n

Определить:
б) среднее арифметическое элементов побочной диагонали квадратной матрицы

Код:

s:=0;
for i:=1 to n do
  s:=s+a[n-i+1,i];
sr_arifmetic:=s/n

[Delirium]

GreyObr, в следующий раз оформляйте исходный код тегами, для лучшего чтения.

[GreyObr]

Записи Имеется информация о количестве осадков, выпавших за день месяца, и о температуре воздуха в эти дни. Определить, какое количество осадков выпало в виде снега и какое – в виде дождя.(Считать, что идёт дождь, если температура воздуха выше 0). »

Код:

const
n=31;{кол-во дней в месяце}

type
day = record
  osadki : byte;
  temp : shortint;
end;

var
d: array [1..n] of day;
sum_dojd, sum_sneg:word;{кол-во снега и дождя за месяц}

begin
{ввод данных по кол-ву осадков на каждый день}
for i:=1 to n do
  begin
    writeln('введите кол-во осадков и температуру в ',i,'-й день:');
    readln(d[i].osadki, d[i].temp)
end;

sum_dojd := 0;
sum_sneg := 0;
for i:=1 to n do
  if d[i].temp > 0 then sum_dojd := sum_dojd + d[i].osadki
    else sum_sneg := sum_sneg + d[i].osadki;

writeln('дождя за месяц:',sum_dojd);
writeln('снега за месяц:',sum_sneg);
end.