Люди добрые Напиши, как будет выглядеть за на выборку, если надо из таблицы «Зачеты Электротехника» выбрать учащихся, которые сдавали зачет в определенную дату.
4. Опиши, что выдаст данный за Опиши, что выдаст данный за Опиши, что выдаст данный за Опиши, что выдаст данный за Опиши, что выдаст данный за ответь на во какие по структуре и назначению бывают за ответь, какие элементы управления могут использоваться на форме?
11. Напиши маску ввода для того, чтобы вводилось название только с большой буквы и содержало 8 символов.

Program gt;
var n,i,max,min:integer;
a:array[1..100]of integer;
begin
read(n);
{n-кол-во учащихся}
for i:=1 to n do
read(a[i]);
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if(a[i]>max)then max:=a[i];
if(a[i]<min)then min:=a[i];
end;
writeln(max,' ',min,'-росты')
max:=max-min;
writeln(max);
end.
2)
program gt;
var n,i,a,k:integer;
begin
read(n);
k:=0;
for i:=1 to n do
begin
read(a);
if(a<1958)then k:=k+1;
end;
writeln(k);
end.
3)
program gt;
var i,q,a,l:integer;
begin
for i:=8 to 20 do
begin
read(a);
if(a<0)then begin
q:=q+1;
if(q=1)then l:=i;
end;
end;
writeln(l);
end.

Во первых ошибка во фрагменте там должны быть цыфирки 1, а не буква l

 т.е   for n:=1 to 6 do
        for m:=1 to 5 do begin

Текст программы
Uses crt;
var c:array[1..6,1..5] of integer;
    n,m:integer;   
begin
      с[4,3]:=10;
    for n:=1 to 6 do
       for m:=1 to 5 do begin
        с[n,m]:=с[n,m]+(2*n-m);
         if (m=5)then
        writeln(c[n,m])
        else write(c[n,m],'  ');
        end;
     writeln;writeln;
     write('C[4,3]=',C[4,3]);
    readkey;
end.

Прогоночный вывод

1 0 -1 -2 -3
3 2  1 0 -1
5 4 3 2 1
7 6 15 4 3
9 8 7 6 5
11 10 9 8 7

Отсюда получаем что если с[4,3]:=10 перед началом цикла то с[4,3]=15
в противном случае с[4,3]=5