Var a,i,n:integer;
begin
writeln('Введите a');
readln(a); n:=0;
for i:=1 to a do begin
n:=n+1; writeln(i);
end;
writeln('N = ',n);
end.
1) Name: aray[1..10] of integer;
3)scr(1) scr(2) ...
4) Program Name;
uses crt;
var a,b,c:integer;
BEGIN
b:=0;
for a:=1 to 100 do
begin
b:=b+a;
end;
write ('Vash resultat =', b);
readln;
<span>END.
</span>
1) глаза-зрение
2) нос-обаняние
3) уши-слух
4) рот-речь
MASS[1..7]-7 чисел.
col-количество отрицательных чисел.
sum-сумма всех отрицательных элементов
pr-произведение положительных
Объем получаемой инф. зависит оттого, насколько она уменьшает не определеноость