Есть 2 программы, в которых, на мой взгляд, ошибок нет. FreePascal при компиляции выдает ошибки в обеих программах. В чем может быть проблема?
Программа 1
- Код: Выделить всё
program z3;
uses crt;
var n: array[1..8] of Real;
sum: Real;
i: Byte;
Begin
clrscr;
writeln('Vvedite 8 chisel: ');
sum:= 0;
for i:= 1 to 8 do
begin
readln(n[i]);
if n[i] mod 3 = 0 then sum:= sum + n[i];
end;
write('Summa = ', sum:10:2);
readln()
End.
Программа 2
- Код: Выделить всё
program z4;
uses crt;
var a: array[1..10] of Real;
col0: Integer;
colP: Integer;
srzn: Real;
Begin
clrscr;
col0:= 0;
colP:= 0;
srzn:= 0;
for i:= 1 to 10 do
begin
write('Vvedite a[', i, '] = ');
readln(a[i]);
if a[i] = 0 then col0:= col0 + 1;
if a[i] > 0 then
begin
colP:= colP + 1;
srzn:= srzn + a[i];
end;
end;
srzn:= srzn/colP;
writeln('Kol-vo 0 el-v = ', col0);
writeln('Srednee znachenie pol el-v = ', srzn:10:2);
readln;
End.
Attid: учим правельно оформлять сообщения !!!
