Эта компания была основана 1 января 1939 года двумя друзьями для производства тестирующего и измеряющего оборудования.ныне это крупная амерканская компания - поставщик офисного оборудования и программного обеспечения.выберите её логотип: а) dell б)nokia в)hp г)ibm

Hp,  естественно. но даже если этого не знать — неужели так лень открыть  вики?

Вот пример программы: uses crt; const n=5; type mas=array [1..n, 1..n]  of integer;   var i, j , sum: integer;         a: mas; begin   clrscr;   sum: =0;   for i: =1 to n do     for j: =1 to n do         a[i,j]: =10+random(90);   for i: =1 to n do     for j: =1 to  n do             if (a[i,j] mod 2< > 0) then sum: =sum+a[i,j];   for i: =1 to n do   begin     for j: =1 to n do         write (a[i,j]: 4);     writeln;   end;   writeln;   writeln(' s = ', sum);   readln; end.

  только решу - интер а получилось вот что: uses crt; const n=30; type mas=array [1..n]  of integer;   var i, j , sumpol, sumotr: integer;         a: mas; begin   clrscr;   sumpol: =0;   sumotr: =0;   writeln(' sposob 1: ');   writeln;   for i: =1 to n do         begin                   a[i]: =-10+random(21);                   write (a[i]: 4);         end;   writeln;   for i: =1 to n do   begin             if (a[i]> 0) then sumpol: =sumpol+a[i];             if (a[i]< 0) then sumotr: =sumotr+a[i];   end;   writeln(' sumpol =', sumpol);   writeln(' sumotr =', sumotr);   writeln;   writeln (' sposob 2: ') ;   sumpol: =0;   sumotr: =0;   i: =1;   repeat     if (a[i]> 0) then sumpol: =sumpol+a[i];     if (a[i]< 0) then sumotr: =sumotr+a[i];     i: =i+1;   until i> 30;   writeln(' sumpol =', sumpol);   writeln(' sumotr =', sumotr);   readln; end.