ЗАДА4а на паскаль

[Филантроп]

2_1)

uses crt;
var m:array [1..100] of integer;
a,b,max,n,i:integer;
begin
writeln('n=');
readln(n);
for i:=1 to n do
readln(m[i]);
clrscr;
max:=-32000;
writeln('a=');
readln(a);
writeln('b=');
readln(b);
for i:=1 to n do
if (m[i]<=b) and (m[i]>=a) and (m[i]>max) then max:=m[i];
writeln('array');
for i:=1 to n do
write(m[i]:5);
writeln;
writeln('max=',max);
readln;
end.

2_2)

uses crt;
var a,c,p:array [1..3,1..3] of integer;
    j,i:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
readln(a[i,j]);
clrscr;
writeln('matrix a');
for i:=1 to 3 do begin
for j:=1 to 3 do
write(a[i,j]:6);
writeln;
end;
for i:=1 to 3 do
for j:=1 to 3 do
p[i,j]:=2*a[i,j]+1;
writeln('matrix c');
for i:=1 to 3 do begin
for j:=1 to 3 do
c[i,j]:=p[j,i];
end;
for i:=1 to 3 do begin
for j:=1 to 3 do
write(c[i,j]:6);
writeln;
end;
Readln;
end.

5

uses crt;
var s:string;
    i:integer;
begin
readln(s);
i:=1;
while i<=length(s) do begin
case s[i] of
'0': begin delete(s,i,1);
            insert('null',s,i);
     end;
     '1': begin delete(s,i,1);
            insert('one',s,i);
     end;
     '2': begin delete(s,i,1);
            insert('two',s,i);;
     end;
     '3': begin delete(s,i,1);
            insert('three',s,i);;
     end;
     '4': begin delete(s,i,1);
            insert('four',s,i);
     end;
     '5': begin delete(s,i,1);
            insert('five',s,i);
     end;
     '6': begin delete(s,i,1);
            insert('six',s,i);
     end;
     '7': begin delete(s,i,1);
            insert('seven',s,i);
     end;
     '8': begin delete(s,i,1);
            insert('eight',s,i);
     end;
     '9': begin delete(s,i,1);
            insert('nine',s,i);
     end;
end;
inc(i);end;
writeln(s);
Readln;
end.

4

uses crt;
var m:array [1..100] of integer;
a,max,n,i:integer;
begin
writeln('n=');
readln(n);
for i:=1 to n do
readln(m[i]);
writeln('a=');
readln(a);
clrscr;
max:=1;
for i:=1 to n do
if abs(m[i]-a)<abs(m[max]-a)  then max:=i;
writeln('array');
for i:=1 to n do
write(m[i]:5);
writeln;
writeln('#[',max,']  =',m[max]);
readln;
end.

3

var a:array [1..100,1..100] of integer;
    n,m,j,i:integer;
	b:boolean;
begin
writeln('m=');
readln(m);
writeln('n=');
readln(n);
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
clrscr;
writeln('matrix a');
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:6);
writeln;
end;
for i:=1 to n do begin
b:=true;
for j:=1 to m do
 if a[i,j] mod 2 <>0 then begin b:=false;break;end;
if b then writeln(i);end;
Readln;
end.

ну а 7-8 делай сам))))))))))))))))))

[KOSS.AB]

извините [CODER], но там не праивльно.

[KOSS.AB]

спасибо Филантроп, но зада4а 2 1) не правильная



uses crt;
var m:array [1..100] of integer;
a,b,max,n,i:integer;
begin
writeln('n=');
readln(n);
for i:=1 to n do
readln(m[i]);
clrscr;} {ЭТО ИЗ СИ плюс плюс 4толи?} {ТУТ НАДО переделать}
max:=-32000;
writeln('a=');
readln(a);
writeln('b=');
readln(b);
for i:=1 to n do
if (m[i]<=b) and (m[i]>=a) and (m[i]>max) then max:=m[i];
writeln('array');
for i:=1 to n do
write(m[i]:5);
writeln;
writeln('max=',max);
readln;
end.

[ROMA2PVT]

Это очистка экрана.

[Филантроп]

{ТУТ НАДО переделать}

Вот и переделай!!!

[overtake]

вот сделал четвертую, просто делать не чего)

 var i,k,min,n:integer; a,b:array[1..20] of integer; 
begin
randomize;
writeln('vved k');
readln(k);
readln(n);
for i:=1 to n do begin
readln(a[i]);
write(a[i]:4);
end;
writeln;
for i:=1 to 10 do begin
b[i]:=abs(a[i]-k);
end;
writeln;
min:=b[1];
for i:=1 to n do begin
if  min>=b[i] then begin
min:=b[i];
end;
end;

write(min+k);
readln;
end.

[KOSS.AB]

Я знаю 4то ето 4истка екран, на она не работает. и там ещё стоит скобка и си плюс-плюс. а 4истку экрана можно ваабще везде убрать

[KOSS.AB]

OVERTAKE там в 4 зада4е 4исла надо вводить самому и 4исло k тоже, а потом прога должна выдавать самое близкое 4исло к k и номер етого 4исла в массиве.

[overtake]

Сообщение от KOSS.AB

OVERTAKE там в 4 зада4е 4исла надо вводить самому и 4исло k тоже, а потом прога должна выдавать самое близкое 4исло к k и номер етого 4исла в массиве.

там поменять 2 сек, ну к ты и так вводишь, я просто массив рандомный сделал... поненял, проверяй все пахать должно

[KOSS.AB]

OVERTAKE а 7 зада4а должа результат цен увели4ить на 10% , а там ваще какие-то 1.0Е+00 надо 4то бы просто циыры были