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

с практичесткой
Запустить PascalABC.NET.2.Выполнить задания. Перед каждым заданием писать название задания, например «Задание 1А», и к каждому действию написать комментарий или пояснение в программе.а)Создать целочисленный одномерный массив A[1..n] (n=10) с элементами, равными своим удвоенным индексам и вывести их на экран. Найти сумму всех элементов массива
.varmas: array[1..10] of integer;
i: integer;
s: real;
begin
writeln('Задание1A');
S:=0;for i:=1 to 10 do begin
mas[i]:=i*2;
writeln('mas[',i,']=',mas[i]);
S:=S+mas[i];
end;
writeln('Сумма всех элементовmas= ',S);
end.б)Создать целочисленный одномерный массив A[1..n] (n=10) с произвольными целыми числами. Найти количество отрицательных, положительных и нулевых элементов в линейном целочис-ленном массиве. в)Вывести на экран все отрицательные элементы линейного целого массива (из задания Б).3.Откомпилировать задания и запустив на выполнение, получить результат. 4.Результаты показать учителю и, при необходимости, сохранить на дискете. 5.Сохранить свой файл (под именем «Pr11»).6.Закрыть PascalABC.NET.Задание 2.(+ )1.Открыть файл с сохраненными решениями предыдущих заданий(под именем «Pr11»).2.Выполнить задания. Перед каждым заданием писать название задания, например «Задание2А», и к каждому действию написать комментарий или пояснение в программе.а)Создать целочисленный одномерный массив A [1..n] (n=10) с произвольными целыми числами.Найти среднее арифметическое всех положительных элементов линейного массива действи-тельных чисел.б)Определить индекс и значение максимального элемента массива(из задания 2А). Результат вы-вести на экран.3.Откомпилировать заданияи запустив на выполнение, получить результат. 4.Результаты показать учителю. 5.Сохранить свой файл (под именем «Pr11»).Задание 3.(+ )1.Открыть файл с сохраненными решениями предыдущих заданий(под именем «Pr11»).2.Выполнить задания. Перед каждым заданием писать название задания, например «Задание3», и к каждому действию написать комментарий или пояснение в программе.Создайте массив из 10 случайных целых чисел (создается с генератора случайных чи-сел). Отобразите его на экране. После чего задайте поиск числа х в полученном массиве и отоб-разите сколько раз встречается это число. 4.Откомпилировать задания и запустив на выполнение, получить результат. 5.Результаты показать учителю.6.Сохранить файл с новыми данными.7.ответить на контрольные во

Показать ответ
Ответ:
Аккаунт удален
Аккаунт удален
03.04.2022 00:51
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandomReal(n,1,50);
  a.Println;
  var m:=a.Min;
  if m<>0 then
    for var i:=0 to n-1 do a[i]/=m;
  a.Println
end.

Тестовые решения:
n= 5
15.9562486982701 12.6295463515583 11.5262675264507 24.1544637978796 45.6158542677834
1.38433787534893 1.09571865502651 1 2.09560152429653 3.95755643907304

n= 10
14.0622929614327 16.5069398081428 13.2300360101415 45.449448110745 46.6062807271286 41.3808015088461 21.5502972461052 20.3082026570608 6.33108078377837 25.0892608808769
2.22115203417771 2.60728623941069 2.0896962875659 7.17878189569095 7.36150466545052 6.53613544386811 3.40388915922883 3.20769918290964 1 3.96287170196298

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,1,50);
  a.Println;
  var m:=a.Max;
  if m<>0 then
    for var i:=0 to n-1 do a[i]+=m;
  a.Println
end.

Тестовые решения:
n= 8
37 3 10 29 39 31 40 10
77 43 50 69 79 71 80 50

n= 10
9 47 40 19 20 37 21 39 26 31
56 94 87 66 67 84 68 86 73 78
0,0(0 оценок)
Ответ:
Vanysik
Vanysik
12.02.2023 07:32
1) диаграмма автоматически перестроится, согласно новых данных
2) получится формула =СУММ(E1:E5)
3) СРЗНАЧ()
4)ввести значение 10 в ячейку А1; ввести формулу =А1+5 в ячейку А2; скопировать(растянуть) формулу из ячейки А2 до ячейки А19
5)=A1*LN(B2*C1)
6)=3*EXP(2*A1)
7)Стандартные функции используются только в формулах. Вызов функции состоит в указании в формуле имени функции, после которого в скобках указывается список параметров. Отдельные параметры разделяются точкой с запятой. В качестве параметра можно использовать число, адрес ячейки или произвольное выражение.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота