Гоша- учится в 5 классе ,кружок-математ.
Витя-6, фотокружок
Алеша-7-авиамодели.
Боря-8,шахмат.
Думаю,что так, но не уверена,напишите потом верно или нет
Да, всё правильно. При неправильной команде СКИ выдаст "не понимаю", при невозможности исполнения выдаст "не могу"
Сводная - в нее сведены все итоги по предметным таблицам
В общем, на программу с while:
Program solid;
var n,i,s:real;
begin
read(n);
writeln('кол-во дней=',n);
i:=1;
s:=0;
while i<=n do
begin
i:=i+1;
s:=s+1;
end;
writeln('Вася пробежит ',s,' км за тренировочный цикл');
end.<span>
</span>
Var i,c:integer;an:array[1..10] of integer,a:array[1..10] of integer;
<span>begin
randomize;
for i:=1 to 10 do a[i]:=</span><span>random(100)-100</span>;<span>
for i:=1 to 10 do
if a[i]>0 then
begin
an[i]:=a[i];
</span>c:=c+1;
end;
writeln("Кол-во положительных элементов: ",c);
for i:=1 to 10 do
begin
if a[i]<=0 then
begin
an[c]:=a[i];
<span>c:=c+1;
end;
end;
writeln("Получившийся массив:");
writeln(" ");
for i:=1 to 10 do write(an[i]," ");
end.
</span>