Const
n = 3;
var
i,b:integer;
a:array[1..n] of integer;
begin
b:=21;
for i:=1 to n do
begin
a[i]:=random(51)-30;
if (a[i]>0) and (a[i]<b) then b:=a[i];
end;
writeln('Полученный массив:');
for i:=1 to n do
write('a[':4,i,']=',a[i]);
writeln;
if b<21 then write('Наименьший элемент = ',b) else write('Нет положительных элементов')
end.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Write('Сумма элементов с четными индексами ',
a.Where((x,i)->i.IsOdd).Sum)
end.
<u>Пример</u>
n= 13
81 6 -34 -33 -13 86 -14 -49 -28 -20 -93 5 -62
Сумма элементов с четными индексами -5
var f,x,a,b: real;
begin
readln(x);
f:=(sin(1))/(x+2);
write(f)
end.
Constn=60;var a,l,i,j:integer;mas: array [1..n] of integer;begin randomize;writeln('Исходный массив '); for i:=1 to n do begin mas[i]:=random(64); write(mas[i]:4); end; for i:=1 to n-1 do for j:=1 to n-i do if mas[j] < mas[j+1] then begin a:=mas[j]; mas[j]:=mas[j+1]; mas[j+1]:=a; end; writeln(); writeln('Массив по убыванию'); for i:=1 to n do write(mas[i]:4); end.
три последние цифры это 000