Выполнить алгоритм , используя таблицу значений( все занести в таблицу пошагово) for i: =1 to 10 do for k: =1 to 10 do if i> k then a[i, k]: =1 else a [i, k]: =0; чему равна сумма элементов массива после выполнения этого фрагмента программы?

Выполняем пошагово алгоритм, заполняя массив. в результате получаем 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 1 1 1 1 0   сумма равна 1+2+3+4+5+6+7+8+9=45

Программное обеспечение-это набор команд , работой компьютера. без программного обеспечения компьютер не сможет выполнять , которые мы обычно связываем с компьютерами.  функции программного обеспечения следующие: 1) компьютерными ресурсами организации; 2)обеспечивать пользователя всеми инструментами,необходимыми для извлечения пользы из этих ресурсов; 3)выполнять роль посредника между организациями и хранимой информацией ; выбор соответствующего потребностям организации программного обеспечения - одна из ключевых персонала

Const  n=10; type  myarr=array[1..10] of integer; var ar: myarr; ar2: myarr; i,k: integer; procedure sortmin(var a: myarr; n: integer); var i,j,x: integer; begin;   for i: =1 to n do  for j: =1 to n-1 do    if a[j]< a[j+1] then      begin        x: =a[j+1];         a[j+1]: =a[j];         a[j]: =x;         end; end; begin; randomize; k: =0; writeln('first array: '); for i: =1 to 10 do  begin;   ar[i]: =random(100);   write(ar[i]: 4);   if (ar[i]> 10) and (ar[i] mod 3=0) then    begin;     inc(k);     ar2[k]: =ar[i];     end;   end; if k=0 then  begin;   writeln('нет подходящих элементов');   exit;   end; sortmin(ar2,k); writeln; writeln('final array: '); for i: =1 to k dowrite(ar2[i]: 4); end.