Цикл з параметром

var x,s,i:integer;
begin
randomize; s:=0;
for i:=1 to 10 do
begin
x:=random(11);
write(x,' ');
s:=s+x;
end;
writeln(s);
end.

9 4 10 9 8 2 0 3 7 2 54	Перші 10 чисел створені генератором випадкових чисел, останнє число – їх сума.
2		7 9 0 8 5 8 3 8 10 4 62

1. 
   Потрібно створити двадцять дійсних чисел, тому створення та інші дії будемо виконувати у операторних дужках у циклі for i:=1 to 20 do:
2. • Числа дійсні та повинні належати інтервалу [А, В). Тому для цього будемо використовувати формулу X:=A+Random*(B-A)
   • Отримане число виводиться на екран оператором write(x:1:2,' ')
   • Отримане число перевіряється та, якщо воно >2 збільшується лічильник k:=k+1

var k,i:integer; x,a,b:real; begin read(a,b);randomize; k:=0; for i:=1 to 20 do begin x:=a+random*(b-a); write(x:1:2,' '); if x>2 then k:=k+1; writeln(k); end; end.

var x,k,i,a,b:integer;
begin
randomize;
a:=random(16)+5; b:=random(26)+25;
k:=random(11)+10;
Writeln('a=',a,' b=',b,' k=',k);
for i:=1 to k do
begin
x:=a+random(b-a+1);
if x mod 10=7 then write(x,' ');
end;
end.

var i,n,a:integer; f:boolean;
begin
f:=false; read(n);
for i:=1 to n do
begin
read(a);
if a=0 then f:=true;
end;
if f then writeln('yes')else writeln('no');
end.

 

var i,n,a:integer; f:boolean;
begin
f:=true; read(n);
for i:=1 to n do
begin
read(a);
if a<>0 then f:=false;
end;
if f then writeln('yes')else writeln('no');
end.

var i,a,n:integer; begin read(n); for i:=1 to n do begin a:=i*i-10; write (a,' '); end; end.

const a=2;b=3;h=0.1;
var x,y:real; i,n:integer;
begin
n:=round((b-a)/h)+1;
x:=a;
for i:=1 to n do
begin
y:=sqr(x);
writeln(x:3:1,y:5:2);
x:=x+h;
end;
end.

const a=2;b=3;h=0.1;
var x,y:real; i,n:integer;
begin
n:=round((b-a)/h)+1;
x:=a;
for i:=1 to n do
begin
if x<2.5 then y:=sqr(x)
else y:=sqr(x)*x;
writeln(x:3:1,y:7:2);
x:=x+h;
end;
end.