В тех случаях, когда натуральный эксперимент невозможен. Например при изучении слишком больших объектов или наоборот при изучении слишком маленьких объектов
var s:string;
begin
readln(s);
writeln(copy(s,2,length(s)-2));
end.
program gg;
var i,n,max:integer;
a:array of integer[1..10];
begin
readln(a[i]);
for i:=1 to 10 do
begin
writeln(a[i],' ');
end;
n:=a[6];
a[6]:=a[9];
a[9]:=n;
max:=a[1];
for i:=2 to 10 do
if a[i]>max then
max:=a[i];
writeln('max element=',max);
readln
end.
Я сделала ввод массива с клавиатуры, но ты можешь сделать его рандомными числами
const N=5;
var A: array [1..N] of real;
i: integer;
begin
writeln('Введите массив');
for i:=1 to N do
readln(A[i]);
writeln('Положительные элементы:');
for i:=1 to N do
if A[i]>0 then
writeln('A[', i, ']=', A[i]);
end.
13. <span>Вычисления делать разные. Бухгалтером будеш если, будеш его изучать. А функции помогут вычислить всякие налоги, зарплату и т. д.
</span>