Александра440
?>

Пчела&город=0, пчела=53, Пчела&улей=16, город=70, улей=58, пчела|улей|город=139 Сколько страниц будет найдено по за улей&город. С решением

Информатика

Ответы

scraer198258
Program p1;
const n=10;
var a:array [1..n] of real;
    i:byte; 
   max:real; 
   nmax:byte;
begin
 //начало цикла ввода 
For i:=1 to n do 
//ввод    
Readln(a[i]) 
//берём за максимальный 1ый элемент
 max:=a[1]; 
 //берём количество = 1
 nmax:=1; /
/начало цикла проверки 
For i:= 2 to n do 
 if a[i]> max then    
    begin       
       max:=a[i]; 
       nmax:=1;     
   end else
                if a[i]= max then       
                         nmax:=nmax+1; 
//вывод 
Writeln('Максимальный элемент = ', max,', количество таких элементов = ',nmax);  end.
evageniy79

program raf105;

const

 n = 4;

var

 a: array[1..n,1..n] of integer;

 i,j,sum: integer;

begin

 for i:=1 to n do

 begin

 writeln;

   for j:=1 to n do

     begin

       a[i,j]:= random(1,9);

       if i = j then

         sum:= sum + a[i,j];

       write(a[i,j]:4,' ');

     end;

 end;

 writeln;

 writeln;

 writeln('Вывод:');

   for i:=1 to n do

 begin

 writeln;

   for j:=1 to n do

     begin

       if i <> j then

         a[i,j]:= a[i,j] * sum;

       write(a[i,j]:4,' ');

     end;

 end;

end.

PascalABC 3.4.2

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Пчела&город=0, пчела=53, Пчела&улей=16, город=70, улей=58, пчела|улей|город=139 Сколько страниц будет найдено по за улей&город. С решением
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Кирилл-Морозова
tanyatanyat
natakrechko
saint158
Nonstop788848
oooviktoria17
Максим
зырянов_Юрьевна378
ghjcnjtyjn64
yaudo47
nadezhdasvirina
kchapurina591
alekseisamohvolov7
vitalis79
kot271104