Регистрация
arslanbaiguskap0c2gw
23.03.2020 11:33
Информатика
Есть ответ 👍

Даннмассив натуральных чисел. массив заполнить произвольно случайными числами и вывести в одну строку. найти сумму элементов. кратных данному k. вывести с клавы.. контра.

203
336
Посмотреть ответы 2

Ответы на вопрос:

DashaCat02
DashaCat02
4,7(74 оценок)

const n = 20;

var a: array [1..n] of integer;       i, k, sum, s: integer; begin  for i : = 1 to n do  begin      a[i] : = random(11); //заполняем    sum : = sum + a[i]; //сумма всех эл-тов  end;   for i : = 1 to n do    write(a[i], ' '); //выводим  writeln; //переход на новую строку  writeln(sum);   readln(k);   for i : = 1 to n do    if ((a[i] mod k) = 0) then  s : = s + a[i]; //сумма эл-тов кратных k  writeln(s); end.

emilinloveTV
emilinloveTV
4,8(2 оценок)

<html>

<style type="text/css">

   table {

       border-collapse: collapse;

   }

   table th,

   table td {

       padding: 0 3px;

   }

   table.brd th,

   table.brd td {

       border: 2px solid #000;

   }

</style>

<body>

<table class="brd">

 <tbody>

   <tr>

     <td>Математика</td>

     <td>Русский</td>

     <td>Музыка</td>

   </tr>

   <tr>

     <td>Химия</td>

     <td colspan="2" align="Center">Физкультура</td>

   </tr>

   <tr>

     <td>Физика</td>

     <td  rowspan="2">Обществознание</td>

     <td>Информатика</td>

   </tr>

   <tr>

     <td>История</td>

     <td>Биология</td>

   </tr>

 </tbody>

</table>  

</body>

</html>

Популярно: Информатика