Регистрация
zzaaiirra
10.02.2023 11:35
Информатика
Есть ответ 👍

знайдіть два підтвердження того що сервіс https://www.symbaloo.com/home можна використати для організації персонального освітнього середовища

174
254
Посмотреть ответы 1

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

tanyatomeva81
tanyatomeva81
4,6(54 оценок)

Відповідь:

program Pr1;

var

 a: array[1..10] of integer;

 i,k,n,s: integer;

 sr: real;

begin

 Randomize;

 k := 0;

 s := 0;

 for i := 1 to 10 do

 begin{формирование массива}

   a[i] := random(41) - 20;

   write(a[i]:5);

   if a[i] > 0 then

   begin

     S := S + A[i];

     n := n + 1;

   end;  

   if abs(a[i]) mod 10 = 7 then

     k := k + 1;

 end;

 writeln;

 WRITELN('Количество элементов на 8: ', k);  

 if n<>0 then

   begin

     SR := S / N;

     WRITELN('Среднее: ', SR);

   end

 else

   writeln('Нет отрицательных чисел.');

end.

Пояснення:

Здається так, давно не писав нічого на цій мові

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