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

Заполните массив случайными числами в интервале [0,100] и найдите среднее арифметическое его значений. пример: массив: 1 2 3 4 5 среднее арифметическое 3.000 язык програмирования паскаль

👇
Ответ:
геля569878
геля569878
25.07.2020
Var
m:array[1..10000] of integer;
i,s,n:longint;
a:real;
begin
randomize;
writeln('Введите число элементов');
read(n);

writeln('Массив:');
for i:=1 to n do
 begin
 m[i]:=random(101);
write(m[i],' ');
 s:=s+m[i];
 end;

a:=s/n;
writeln('Среднее арифметическое: ',a:2:3);
end.
4,8(9 оценок)
Ответ:
natali251081
natali251081
25.07.2020
#include "iostream"
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <cstdio>
using namespace std;
void main()
{
setlocale(LC_ALL, "Russian");
 int i;
 double s = 0, k, size;
 double mas[200];
 cout << "Введите размерность массива:";
 cin >> size;
 srand(time(NULL));
 for (i = 0; i < size; i++)
{
 mas[i] = 0 + rand() % 100; cout << mas[i] << " ";
 }
cout << endl;
 for (i = 0; i < size; i++)
{
 s = s + mas[i];
 }
k = s / size;
 cout << "Среднее арифметическое:" << k <<endl;
 system("pause");
}
4,6(42 оценок)
Ответ:
Шпсхрчз
Шпсхрчз
25.07.2020

var

m:array[1..10000] of integer;

i,s,n:longint;

a:real;

begin

randomize;

writeln('Введите число элементов');

read(n);

writeln('Массив:');

for i:=1 to n do

 begin

 m[i]:=random(101);

write(m[i],' ');

 s:=s+m[i];

 end;

a:=s/n;

writeln('Среднее арифметическое: ',a:2:3);

end.

4,4(100 оценок)
Открыть все ответы
Ответ:
kolopok
kolopok
25.07.2020
№1 
Найдем объем всего сообщения в битах: 
1/512 Мб=1024/512 Кб=2 Кб=2*1024 байт=2048 байт=2048*8 бит 
Найдем сколько занимает один символ для этого поделим кол-во битов в сообщении на кол-во символов: 
(2048*8)/2048=8 бит i=8 
найдем мощность алфавита N 
N=2 в стапени i 
N=256 
ответ:N=256 
№2 
Найдем сколько занимает один знак: 
N=2 в степени i 
256=2 в степени i 
i=8 бит 
Найдем сколько займут введенные символы: 
8*100=800 бит=800/8 байт=100 байт 
ответ:100 байт 
№3 
Найдем сколько занимает один символ: 
N=2 в степени i 
65536=2 в степени i 
i=16 бит=2 байта 
Найдем кол-во символов: 
4стр*5мин=20стр 
20стр*40строк=800строк 
800строк*50 симв=40000симв 
Все символы занимают: 
40000*2 байта=80000байт 
ответ:80000байт
4,6(17 оценок)
Ответ:
dokeliz
dokeliz
25.07.2020
Если ты в 10-11, то необходимо с массивом:
const n=10;
var a:array[1..n] of integer;   
     i,min,max:integer;   
     sum:real;
begin
for i:=1 to n do readln(a[i]);
min:=a[1]; 
max:=a[1];
for i:=1 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
sum:=(min+max)/2;
writeln(sum);
end.


Без массива:
uses crt;
const n=10;
var  x,i,min,max:integer;
     sum:real;
begin
min:=10000;
max:=-10000;
for i:=1 to n do begin
readln(x);
if x>max then max:=x;
if x<min then min:=x;
end;
sum:=(min+max)/2;
writeln(sum);
end.
4,8(46 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ