Var
SurName : Array [1..30] of String;
Mark : Array [1..30] of Real;
Cand : Array [1..30] of String;
NPupil, K : Integer;
BEGIN
Write('Сколько всего учеников ? ');
ReadLn(NPupil);
WriteLn('Введите фамилии и оценки учеников :');
For var i := 1 to NPupil do
begin
Write(i, '. Фамилия - ');
ReadLn(SurName[i]);
Write(' Оценка - ');
ReadLn(Mark[i]);
end; WriteLn;
K:=0;
For var i := 1 to NPupil do
If Mark[i]=2 then
begin
K:=K+1;
Cand[K] := SurName[i]
end;
If K=0 then WriteLn('В КЛАССЕ НЕТ ДВОЕЧНИКОВ.')
else
begin
WriteLn('ДВОЕЧНИКИ :');
For var i := 1 to K do WriteLn( i, '. ' , Cand[i]);
end;
END.
Деловая бумага
подтверждает факт или письмо
на нём есть печать
он завершён подписью
Ответ:
program SqrtX;
const
XBEG = 4.5;
XEND = 11.0;
DELTA = 0.5;
var
x: Double;
begin
x := XBEG;
while x <= XEND do begin
WriteLn (x :4 :1, Sqrt (x) :20 :15);
x := x + DELTA;
end;
ReadLn;
end.
Это блок схема
Таблица-
1 взять карандаш
2 взять линейку
И т.д
Список- взять ручку
Взять блокнот
И т.д
Var
n,b,i,k,r:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(b);
if b>=8 then
begin
k:=k+1;
r:=r+b;
end;
end;
writeln('Количество сдавших:',k);
writeln('Среднее значение:',r/k);
end.