В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
kotovaalina31
kotovaalina31
16.01.2023 04:46 •  Информатика

положу Сент на телефон
Лекции
по истории науки
С. Г. Смирнов
Москва
Издательство МИОО
2006

Введение
Весь 20 век Россия пребывала в ранге великой научной державы
несмотря на ее исходную политическую отсталость, которая лишь усу-
губилась в ходе последующих революций. Ещё ббльшие контрасты
между политикой и наукой наблюдались в Германии: там на плечах
Бисмарка выросли сперва Гильберт и Эйнштейн, затем Гайзенберг и
Гитлер. Все эти примеры подсказывают тезис о независимой эволюции
человечества в разных, почти не пересекающих друг друга областях:
экономической и политической, культурной и научной. Лишь в редкие,
краткие периоды революций эти четыре грани общего развития могут
интенсивно взаимодействовать
благодаря высшему напряжению сил
и страстей немногих лидеров научного или иного прогресса.
Эта ситуация аналогична положению дел в теоретической физике,
где четыре разные природные силы —
гравитация, электромагнетизм,
адронные и лептонные взаимодействия:
Мость лишь в условиях Большого Взрыва. История человечества и био-
сферы отличается от большой физики, видимо, лишь тем, что в ней
большие взрывы не редки, но регулярны. Каждый из них можно опи-

Показать ответ
Ответ:
strizhnevan
strizhnevan
22.10.2021 03:00
Const n=15; 
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:3);
 end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
 if a[i]>sr then write(i:3);
writeln;
end.

Пример:
Массив:
  9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
  2 3 10 11 13 14 15
0,0(0 оценок)
Ответ:
Ariya03
Ariya03
11.02.2022 01:13
Var   a: array[1..20,1..20] of integer;   n,m,i,j,min,jm,x: integer; begin   randomize;   write('Введите размеры массива: ');   readln(n,m);   writeln('Исходный массив:');   for i:=1 to n do   begin     for j:=1 to m do     begin       a[i,j]:=random(19)-9;       write(a[i,j]:4);     end;     writeln;   end;   min:=0;   for i:=1 to n do min:=min+a[i,1];   writeln('Сумма элементов 1-го столбца = ',min);   jm:=1;   for j:=2 to m do   begin     x:=0;     for i:=1 to n do       x:=x+a[i,j];     writeln('Сумма элементов ',j,'-го столбца = ',x);     if x<min then     begin       min:=x;       jm:=j;     end;   end;   writeln('Минимальная сумма в ',jm,'-м столбце');   writeln('Полученный массив:');   for i:=1 to n do   begin     for j:=1 to m do     begin       if j<>jm then a[i,j]:=a[i,jm];     write(a[i,j]:4);     end;     writeln;   end;   readln; end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота