Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Question!


Name: xxx
Title:
  xxx
Question:
program xxx;
const N=20;
var vett:array[1..N] of integer;
num,i:integer;
cont:boolean;
begin
for i:=1 to N do
vett[i]:=random(1000);
writeln('inserisci un numero da tastiera');
readln(num);     
for i:=1 to N do
begin
if (vett[i]=num) then
begin
writeln('alla posizione ',i,'del vettore e presente un numero uguale a quello inserito da tastiera :  ',num);
cont:=true;
end;
end;
if (cont=false) then
begin
writeln('Il numero appena inserito non corrisponde a nessun numero de vettore');
end;
readln();
end.
     
Answers:

Name: werwer
program lab_6;
  const n=5;
  type matr=array [1..n,1..n] of integer;
  procedure Input(var a:matr);
    var i,j:integer;
      begin
        for i:=1 to n do
          for j:=1 to n do
            read(a[i,j]);
      end;
  procedure Change(var a:matr; var f:byte);
    var i,j:byte;
        x:integer;
      Begin
        f:=1;
          for i:=1 to n do
            begin
              for j:=1 to n do
                begin
                  if (a[i,j]>=0) then
                    begin
                      if i<j then
                        begin
                          x:=a[j,i];
                          a[j,i]:=a[i,j];
                          a[i,j]:=x;
                        end;
                    end
                  else f:=0;
                end;
            end;
      end;
  procedure Output(const a:matr);
    var i, j:integer;
      begin
        for i:=1 to n do
          begin
            for j:=1 to n do
            write(a[i,j],' ');
            writeln;
            writeln;
          end;
      end;
  var a:matr;
      f:byte;
  begin
  Input(a);
  Change(a,f);
  if f=1 then Output(a)
         else writeln('est otricatelnoe chislo');
readln;
readln;
End.

Name: stefanos
mpampasssssssssssssss