bchukhraev79
?>

Как программируются разветвляющиеся алгоритмы?

Информатика

Ответы

volkovaekaterina303
For i = 1 To 9
  For j = 1 To 9
    s$=String(i*j)
    if length(s$)=1 then s$="  "+s$ else if length(s$)=2 then s$=" "+s$
    Print s$;
  Next j
  Print
Next i
End

Результат работы программы:
  1  2  3  4  5  6  7  8  9
  2  4  6  8 10 12 14 16 18
  3  6  9 12 15 18 21 24 27
  4  8 12 16 20 24 28 32 36
  5 10 15 20 25 30 35 40 45
  6 12 18 24 30 36 42 48 54
  7 14 21 28 35 42 49 56 63
  8 16 24 32 40 48 56 64 72
  9 18 27 36 45 54 63 72 81

Замечание: таблица на самом деле ровная, это тут ширина пробела и ширина цифры различна, поэтому сдвиг.
Ladyby6224
  const n=5;
var a:array [1..n,1..n] of Integer; 
  i,max,ind,s,j:integer;
begin 
 s:=0;
  Randomize;
  for i:=1 to n do 
  for j:=1 to n do 
    a[i,j]:=Random(100)-50;
for i:=1 to n do
begin 
for j:=1 to n do
  write(a[i,j]:4); 
writeln; 
end; 
j:=6;
   for i:=1 to n do
   begin 
    Dec(j); 
   if a[i,j]<0 then   
   s:=s+a[i,j]; 
  end; 
max:=a[1,2];
 ind:=1;
 for i:=1 to n do 
 if Abs(a[i,2])>Abs(max) then
   begin 
    max:=a[i,2];
     ind:=i; 
 end;
  a[ind,2]:=s;
       Writeln; 
      Writeln; 
 Writeln('a)Summ: ',s); 
 writeln('b)Max: ',max); 
 Writeln; 
      Writeln('c)');
  for i:=1 to n do
begin 
for j:=1 to n do
 write(a[i,j]:4);
 writeln; 
end;
  readln;
end.

Дана матрица а(5,5). 1. найти сумму s отрицательных элементов расположенных на побочной диагонали. 2

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

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

Как программируются разветвляющиеся алгоритмы?
Ваше имя (никнейм)*
Email*
Комментарий*

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

nordwokintos4
Татьяна902
verachus
klimovala2
Kondratev Ruzavina22
kristal1
aaazovcev
keldastrand
Klochkov malakhov1974
adrinalin991
inainainainaina0073
ehrik-ch
darialyagina
treneva359
korchags19983941