В чем ошибка? var x:real; fuction x1(a,b:integer):real; begin x1:=a+sqrt(b)/b+a; end; begin x:=

Задан массив A(n).Найти сумму и количество чётных отрицательных элементов этого массива

что параллельно со скачиванием разбитого на небольшие фрагменты файла происходит раздача скачанных фрагментов. Торрент клиент настроен таким образом, что максимальная скорость скачивания 15 МБайт/с, а максимальная скорость раздачи – 5 МБайт/с.

Материалы включают в себя:
Несжатые изображения кадров, размером 1920*1080 точек с глубиной цвета 16 бит из расчета 18 изображений на секунду воспроизведения.
Несжатую звуковую дорожку длительностью N секунд, включающую 48 каналов, каждый из которых оцифрован с частотой дискретизации 192000 Гц и 4096 уровнями квантования.
Никакой другой информации, кроме описанной, в скачиваемых материалах нет.
Определите N - длительность видеоролика в секундах при условии, что раздача фрагментов началась одновременно с началом скачивания, и за время скачивания материалов было роздано 8100 МБайт. Скачивание и раздача все время осуществлялась на максимальных скоростях. Примечание: 1МБайт=2^20 байт. В ответе укажите значение N.

program z;
var n,i,j,s,mx,imx:integer;
begin
repeat
write('n>0 n=');
readln(n);
until n>0;
mx:=1;
imx:=1;
for i:=1 to n do
begin
s:=0;
for j:=1 to i do
if i mod j=0 then s:=s+j;
if s>mx then
begin
mx:=s;
imx:=i
end;
end;
writeln('Максимальную сумму делителей имеет число ',imx,' сумма=',mx);
readln
end.

противном случае все отрицательные элементы матрицы возвести в квадрат.

У меня получилось вот что:

program s455;
uses crt;
const
m=10;
n=12;
Var
A: array[1..m,1..n] of integer;
i, j, k, s: integer;

Begin
writeln('Enter size');
readln;
s:=0;
for j:=1 to m do
begin
k:=0;
for i:=1 to n do
end;
begin
if a<0 then begin
k:=1;
end;
if k=1 then s:=s+1;
end;
begin;
if k<0
then a[i, j]:=a[i, j*2-1]*10;
else a[i, j]:=a[i, j]*c [i, j]
end;
writeln

Не могу понять в чем ошибка

-если первая дата больше второй.паскаль.тема записи
в чем ошибка??
type date = record day: 1..31; month: 1..12; year: integer ; end;
var a: date := (day: 1; month: 4; year: 2015); b: date := (day: 1; month: 4; year: 2014); c:integer;

procedure OutDate(d: date);begin with d do writeln(day, '.', month, '.', year);end;
function Srawn(x, y: date): -1..1;beginif x.year > y.year then writeln( 1) else writeln(-1) ; if x.year = y.year then if x.month > y.month then writeln(1) else writeln(-1); if x.year = y.year then if x.month = y.month then if x.day > y.day then writeln(1) else writeln(-1); if x.year = y.year then if x.month = y.month then if x.day = y.day then writeln(0); end; begin OutDate(a); OutDate(b); c:=srawn(a,b); writeln('otwet:', c);end.

b:array [1..100,1..100] of real;
i,m,n,c:integer;
begin
readln(n);
readln(c);
for i:=1 to n do
for m:=1 to c do readln(a[i,m]);
for i:=1 to n do
for m:=1 to c do
b[i,m]:=a[i,m]/8;
for i:=1 to n do
for m:=1 to c do writeln(b[i,m]);
end.
можете написать обозначение каждого символа