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

Дан массив целых чисел , необходимо найти среднее арифметическое значение и найти элементы равные 5

👇
Ответ:
Sinnysis
Sinnysis
14.06.2021
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,1,10); a.Println;
  Writeln('Среднее ',a.Average:0:5);
  var s:='';
  for var i:=0 to n-1 do
    if a[i]=5 then s+=i+1+' ';
  if s.Length>0 then Writeln('Номера элементов, равных 5: ',s)
  else Writeln('Нет элементов, равных 5')
end.

Тестовое решение:
n= 15
5 3 7 2 10 4 1 5 5 3 8 7 7 3 1
Среднее 4.73333
Номера элементов, равных 5: 1 8 9
4,4(26 оценок)
Ответ:
катя4842
катя4842
14.06.2021
//Pascal ABC.NET v3.1 сборка 1172

Const
 n=5;
 r=10;

Var
 ar:array[1..n] of integer;
 i,s:integer;
begin
 randomize;
 writeln('Array:');
  for i:=1 to n do
   begin
    ar[i]:=random(1,r);
     write(ar[i]:4);
      s:=s+ar[i];
   end;
  writeln;
  writeln('5:');
   for i:=1 to n do
    if ar[i]=5 then write(i:4);
  writeln;
  writeln('S=',s/n);
end.

Пример работы:
Array:
   5   1   2   1   4
5:
   1
S=2.6
4,7(29 оценок)
Открыть все ответы
Ответ:
Юрий210404
Юрий210404
14.06.2021

Математическая модель (а также программа; зависит от того, что понимать под этапом формализации).

В учебнике выделяют такие этапы решения задачи на компьютере:

Исходные данные (результат - словесная информационная модель)Формализация (математическая модель)Алгоритмизация (алгоритм)Программирование (программа)Отладка, тестирование (уточнение модели)Выполнение расчетов (получение результатов)

Нормальные люди понимают, что после формализации информация должна быть представлена на формальном языке, таких языком может быть как математический, так и язык программирования.

4,5(50 оценок)
Ответ:
Selebruty1
Selebruty1
14.06.2021
Const n=8;
var x : array[1..n] of real;
   i : integer; min : real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  x[i]:=20*random-10;
  write(x[i]:6:2,' ');     
 end;
 writeln;
min:=x[1];
for i:=2 to n do
 if x[i] < min then min:=x[i];
writeln('min=',min:6:2);
for i:=1 to n do
 if x[i]<0 then x[i]:=min;
writeln('Измененный массив:');
for i:=1 to n do write(x[i]:6:2,' ');
end.

Пример:
Исходный массив:
 -7.84  -9.97   7.00  -8.26  -7.71  -3.88   7.59  -2.32 
min= -9.97
Измененный массив:
 -9.97  -9.97   7.00  -9.97  -9.97  -9.97   7.59  -9.97 
4,4(28 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ