Программа:
const n=10;
var a:array[1..n] of integer;
k,p,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(21)-5;
write(a[i]:3);
end;
writeln;
k:=0;
while (k<=n)and(a[k]>=0) do k:=k+1;
if k=n+1 then writeln('В массиве нет отрицательных элементов')
else
begin
p:=1;
for i:=k to n do
if a[i]<0 then p:=p*a[i];
writeln('a[',k,']=',a[k],' p = ',p);
end;
end.
Пример:
3 11 9 11 -1 11 -2 3 3 -5
a[5]=-1 p = -10
//PascalABC.NET 3.2 сборка 1318
uses
GraphABC;
Var
i,j,c,x,y:integer;
begin
c:=255;
x:=window.height div 8;
y:=60;
for i:=1 to 4 do
begin
for j:=1 to 8 do
begin
circle(x,y,window.height div 16);
floodfill(x,y,rgb(c,c,c));
c:=c-8;
x:=x+(window.height div 8);
end;
y:=y+window.height div 4;
x:=window.height div 8;
end;
end.
Var a.b.c,d: integer;
begin
Write('Введите число a'); readln(a);
Write('Введите число b'); readln(b);
Write('Введите среднее геометрическое чисел а и b'); read(c);
d:=sqr(a*b);
Write(c=d);
end.
Вот задачка написана в среде Pascal.ABC.NET
В Youtube есть видео с названием <span>"Практична робота № 5. Комп’ютерне моделювання (друга частина в середовищі розробки Lazarus)". Практическое решение этой задачи</span>
1024*4=4096
1байт-8битов
1Кбайт-1024 байта
1Мбайт-1024 Кбайта
1Гбайт-1024 Мбайта