var
mas:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
mas[i]:=i*7;
write (i,'*',7,'=',mas[i]);
writeln;
end;
end.
Begin
var k:=-1;
var a:array[1..16] of integer;
for var i:=1 to 16 do begin
a[i]:=20-random(40)+1;
print(a[i]);
if a[i]=0 then k:=i;
end;
if k<>-1 then writeln('Индекс :',k);
end.
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
begin
var r:=ReadReal('R =');
Writeln('Vшара = ',4/3*Pi*r*r*r:0:4)
end.
<u>Пример</u>
R = 12.6
Vшара = 8379.1554
Var
n,i,s:integer;
begin
Write('n='); Read(n);
i:=7; s:=0;
while i<=n do begin
s:=s+i;
i:=i+5
end;
Writeln('S=',s)
end.
1)
var
a:array[1..16] of integer;
i,k,s:integer;
begin
randomize;
For i:= 1 to 16 do
begin
a[i]:= -30+random(61);
write(a[i], ' ');
end;
For i:= 1 to 16 do
if a[i] < 0 then k:= k+1;
Writeln;
Writeln(k);
end.
Пример:
-21 4 -11 30 -16 -7 26 -14 -20 10 -18 8 -26 -13 -20 -15
11
2)
Изменить условие "if a[i] < 0 then k:= k+1;" на "if a[i] > 0 then s:= s +a[i];"
и "writeln(k);" на "Writeln(s);"