что то не так с кодом, тема: записи

[mishammm]

вот по этой табличке нужно сделать записи: (картинка)
Мой код:

program primer1; 
const
     n=4;
type anketa=record
prizv:string;
ocenka1:real;
ocenka2:real;
end;
var 
    a:array[1..n] of anketa;
    writeln('vvedi dannie');
    for i:=1 to n do
    with a[i] do
    begin
    write('prizv'); 
    readln(a.prizv);
    write('ocenka1'); 
    readln(a.ocenka1);
    write('ocenka2'); 
    readln(a.ocenka2);
    end;
    end.

поправьте пли. может вообще неправильно делаю

[type_Oleg]

-а где объявление переменной i ?
- где скобки begin..end после var
- зачем пишете with, если все равно readln(a.prizv);
.. и т.д.
Вы вообще компилировали ? Там же компилятор кучу ошибок напишет.

[type_Oleg]

Держите

program primer1; 
const
     n=4;
type anketa=record
prizv:string;
ocenka1:real;  // может, лучше Byte или на Украине оценки дробные могут быть?
ocenka2:real;
end;
var 
    a:array[1..n] of anketa;
    i:Integer;
begin    
    writeln('vvedi dannie  '); // добавил пробелы, чтобы не сливалось
    for i:=1 to n do
    with a[i] do
 begin
    write('prizv '); 
    readln(prizv);
    write('ocenka1 '); 
    readln(ocenka1);
    write('ocenka2 '); 
    readln(ocenka2);
 end;   
end.

[mishammm]

тьху, я просто пример в интернете смотрел ))) а там было много упущено спасибо вам

[mishammm]

данные ввел, а можно чтобы оно софрмировало это в виде анкеты??? типа ввел данные , а потом то что ты ввел: типо
prizv: Иванов
Ocenka: 5
Ocenka2: 4
...

[ZX Spectrum-128]

Если я правильно понял задание, вам введенные данные нужно в виде таблицы вывести.

Writeln('| ', i,'. ','|',a[i].prizv, ...);
 и так далее

[mishammm]

Сообщение от ZX Spectrum-128

Если я правильно понял задание, вам введенные данные нужно в виде таблицы вывести.

Writeln('| ', i,'. ','|',a[i].prizv, ...);
 и так далее

нет )) в виде записи. ))

[mishammm]

Сообщение от mishammm

нет )) в виде записи. ))

ну я так понял это всё. ввел данные да и всё. тут стоит вопрос в другом если ниже почитать то дальше надо делать таблицу по введенным данным (тоесть после записей должна быть еще таблица) мой вариант 2. задание было:
Вывести таблицу, с номерами, фамилиями, оценками, и средний бал тех студентов группы средний бал которых больше 4 и количество этих студентов в группе.
код:

const n=4;
var 
   nomer: array[1..n] of real;
   prizv:array [1..n] of string;
   matanaliz,proga:array[1..n] of real;
   i:integer;
   y,s1,s2:real;
   Procedure lin(m:integer);
   var
     i:integer;
     begin
     for i:=1 to m do write('-');
     writeln;
     end;
     begin
     for i:=1 to n do 
     readln(nomer[i],prizv[i],matanal[i],proga[i]);
     Lin(40);
     Writeln('номер|призвіще|математ.|програмування|');
     Writeln('|    |        |аналіз  |             |);
     Lin(40);

но не понимаю как дальше делать с этими средними арифметическими

[mishammm]

всё это должно быть 1 программа

[mishammm]

всё уже понял как делать