Номера минимума и максимума не получается сделать паскаль выделывается чо то
var a: array[1..5] of integer; i,min,max,summa,nmin,nmax:integer;begin
for i:= 1 to 5 do readln(a[i]);
min:=a[1];for i:= 2 to 5 dobeginif a[i]<a[1] then begin min:=a[i];end;
end;
max:=a[1];for i:= 2 to 5 dobeginif a[i]>a[1] then max:=a[i];end;summa:=min+max;
writeln('min=',min);writeln('min+max=',summa);writeln('nomer min=',nmin);writeln('nomer mmax=',nmax);
end.<span>
</span>
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
if s=s.Inverse then Writeln('Палиндром')
else Writeln('Не палиндром')
end.
<u>Примеры</u>
мадам
Палиндром
аргентинаманитнегра
Палиндром
12345654231
Не палиндром
<span>Экспертные системы оперируют не только данными, но и понятийными концептуальными знаниями, выраженными на естественном языке и терминах предметнойобласти.Формой отображения понятийных знаний служат базы знаний, а сами понятийные знания становятся просто знаниями. Правила, содержащиеся в базе знаний, эквивалентны некоторой прикладной программе и могут быть различными по своему формату. Наиболее приемлемым является формат правила «если – то», причем в качестве компонента «то» могут использоваться выводы, утверждения, вероятности, указания, т. е. изменения базы данных. Связанное с правилом условие определяет, является ли то или иноеправилопотенциально справедливым по отношению к текущему состоянию ситуационной модели. Указанное правило разрешает проводить действие, если все заданные для него условия удовлетворяются.</span>
Const
m=10;
n=6;
var
a:array[1..10,1..6] of integer;
i,j:integer;
begin
Writeln('Элементы массива');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=sqr(i)+sqr(j);
Write(a[i,j]:4)
end;
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Элементы массива
2 5 10 17 26 37
5 8 13 20 29 40
10 13 18 25 34 45
17 20 25 32 41 52
26 29 34 41 50 61
37 40 45 52 61 72
50 53 58 65 74 85
65 68 73 80 89 100
82 85 90 97 106 117
101 104 109 116 125 136
const
n = 10;
var
a: array[1..n] of integer;
i, t: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(50);
Write(a[i]:3);
end;
Writeln;
t:=a[n];
for i:=n-1 downto 1 do a[i+1]:=a[i];
a[1]:=t;
Writeln('Результирующий массив');
for i := 1 to n do Write(a[i]:3);
Writeln
end.
<em><u>Тестовое решение:</u></em>
Элементы массива
13 43 26 31 1 21 12 0 33 25
Результирующий массив
25 13 43 26 31 1 21 12 0 33