procedure writing(ar:array of integer; var i,n:integer); begin; while i<=n do begin; write(ar[i]:4); i:=i+2; end; end;
begin; readln(n); writeln('Array:'); SetLength(ar,n+1); for i:=1 to n do readln(ar[i]); i:=1; writeln('Result:'); writing(ar,i,n); end.
2) var ar:array[1..10] of integer; n,i:integer; sr,otk,otkm:real; begin; randomize; otkm:=-1; writeln('Array:'); for i:=1 to 10 do begin; ar[i]:=random(10); sr:=sr+ar[i]; write(ar[i]:4); end; sr:=sr/10; for i:=1 to 10 do begin; otk:=ar[i]-sr; if otkm<otk then otkm:=otk; end; writeln; writeln('Среднее арифметическое:',sr); write('Максимальное отклонение:',otkm); end.
1)var ma:array[1..3,1..3] of integer; i,j,t:integer; begin; randomize; readln(t); writeln('Matrix:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; ma[i,j]:=random(10); write(ma[i,j]:4); ma[i,j]:=ma[i,j]*t; end; end; writeln; writeln('Final matrix:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do write(ma[i,j]:4); end; end. 2)var ma:array of array of real; i,j,n,m,maxj,maxi:integer; max:real; begin; readln(n); readln(m); setlength(ma,n+1); for i:=1 to n do setlength(ma[i],m+1); max:=-2147483648; writeln('Matrix:'); for i:=1 to n do begin; writeln; for j:=1 to m do begin; ma[i,j]:=random(100)-50; write(ma[i,j]:4); if (ma[i,j]<0) and (ma[i,j]>max) then begin; max:=ma[i,j]; maxi:=i; maxj:=j; end; end; end; writeln; writeln('Max:',max); writeln('Строка:',maxi); write('Столбец:',maxj); end.
var d,i:integer;
s:string;
Begin
read(d);
s:=str(d);
for i:= 1 to length(s) do
if int(s[i]) mod 2=0 then
writeln(s[i]);
End.