М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
enotnana
enotnana
22.10.2021 12:32 •  Информатика

Суммирование и нахождение количества элементов в массиве 1) Создать случайный массив M из 20 чисел промежутка [-11; 15].

Найти в нём сумму положительных элементов и заменить первый и

последний элементы массива на найденную сумму. Вывести на экран

исходный и изменённый массивы.

2) Создать случайный массив Z из 10 чисел промежутка [-20; 25].

Найти в нём количество элементов, кратных 5 и заменить им пятый

по счёту элемент массива.

👇
Ответ:

ответ: ответ на python

1)

from random import randint

m = [0]*20

for i in range(len(m)):

   m[i] = randint(-11, 15)

s = 0

for i in range(len(m)):

   if m[i] > 0:

       s += m[i]

m[0] = s

m[19] = s

print(m)

2)

from random import randint

z = [0]*10

for i in range(len(z)):

   z[i] = randint(-20, 25)

s = 0

for i in range(len(z)):

   if z[i] % 5 == 0:

       s += 1

z[4] = s

print(z)

4,6(89 оценок)
Открыть все ответы
Ответ:
Dahsa007
Dahsa007
22.10.2021
//Не люблю "примерно так"
//PascalABC.NET 3.2 сборка 1318

Const
  n=10;

  Var
   m,fm:real;
  mc,fmc,i:integer;
val:array[1..n] of real;
begin
for i:=1 to n do
  begin
    readln(val[i]);
    if val[i]>0 then
       begin
        inc(fmc);
        fm+=val[i];
      end
     else
     if val[i]<0 then
      begin
        inc(mc);
        m+=abs(val[i]);
      end
      else
      begin
        writeln('Funny joke!(no)');
        exit;
      end;
 end;
writeln('Male average=',m/mc);
writeln('Female average=',fm/fmc);
end.
4,8(55 оценок)
Ответ:
HelpinEnglish
HelpinEnglish
22.10.2021
Const N = 10;Const M = 10;Var  A:Array [1..N, 1..M] Of Integer;  i, j, imax, jmax, imin, jmin, temp:Integer; Begin  randomize;  For i := 1 to N do  Begin    For j := 1 to M do    Begin      A[i, j] := random(1000);    End;  End;  imin := 1;  imax := 1;  jmin := 1;  jmax := 1;  For i := 1 to N do  Begin    For j := 1 to M do    Begin      If A[i, j] > A[imax, jmax] then      Begin        imax := i;        jmax := j;      End;      If A[i, j] < A[imin, jmin] then      Begin        imin := i;        jmin := j;      End;    End;  End;  writeln('first elem: ', A[imax, jmax], ', second elem: ', A[imin, jmin]);  temp := A[imin, jmin];  A[imin, jmin] := A[imax, jmax];  A[imax, jmax] := temp;  writeln('first elem: ', A[imax, jmax], ', second elem: ', A[imin, jmin]);End.
4,5(86 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ