кодек -кодекС
кодек - <span>шифратор/дешифратор</span>
<span> кодекс- свод законов</span>
Программа в файле
Program rtr1;Uses crt;Var a:array [1..100] of real; mx, max,min:real; max1,min1,i,n:integer;Begin Clrscr; Write('n='); Readln(n); Writeln('Вводите массив:'); for i:=1 to n do readln(a[i]); max:=a[1]; min:=a[1]; for i:=1 to n do begin if a[i]>=max then max:=a[i]; if a[i]<=min then begin min:=a[i]; min1:=i; end; end; i:=1; while a[i]<>max do begin i:=i+1; end; max1:=i; mx:=a[max1]; a[max1]:=a[min1]; a[min1]:=mx; for i:=1 to n do write('a[',i,']=',a[i],';'); End.
var c, x: integer;
begin
read(c);
x := c div 100 mod 10 + 10 * (c div 1000) +
100 * (c mod 10) + 1000 * (c div 10 mod 10);
write(x)
<span>end.</span>
int[,] A = new int[3,4]; //любое заполнение А
int[] evens = new int[3]; //массив чётных чисел в каждой строке
for (int i = 0; i < 3; i++)
for (int j = 0; j < 4; j++)
if (A[i, j] % 2 == 0)
evens[i]++;
<u><em>Borland Pascal 7</em></u>
uses Crt;
var
a,b,c:real;
begin
ClrScr;
a:=-1/7; b:=1/25; c:=0.2;
Writeln((a*b*c-sqrt(b))/(2.5-abs(a)));
ReadKey
end.
Результат выполнения программы:
-8.5333333333E-02