Регистрация
nastosetrova2
10.07.2021 19:47
Информатика
Есть ответ 👍

1)заполнить массив n чисел значениями и вывести на экран произведение элементов с нечётными номерами через процедуры. 2)дан массив действительных чисел. требуется найти в равное среднему арифметическому элементов массива, и наибольшее отклонение от среднего, т. е. max(/a1–b/,/a2–b//an–b/). !

284
319
Посмотреть ответы 2

Ответы на вопрос:

haha1
haha1
4,6(38 оценок)
1)  var ar: array of integer; n,i: integer; procedure writing(ar: array of integer; var i,n: integer); begin; while i< =n do  begin;   write(ar[i]: 4);   i: =i+2;   end; end; begin; readln(n); writeln('array: '); setlength(ar,n+1); for i: =1 to n doreadln(ar[i]); i: =1; writeln('result: '); writing(ar,i,n); end.2)  var ar: array[1..10] of integer; n,i: integer; sr,otk,otkm: real; begin; randomize; otkm: =-1; writeln('array: '); for i: =1 to 10 do   begin;   ar[i]: =random(10);   sr: =sr+ar[i];   write(ar[i]: 4);   end; sr: =sr/10; for i: =1 to 10 do   begin;   otk: =ar[i]-sr;   if otkm< otk then otkm: =otk;   end; writeln; writeln('среднее арифметическое: ',sr); write('максимальное отклонение: ',otkm); end.
Никита27031
Никита27031
4,4(26 оценок)

CodeCombat-быстрые игры и программирование на питоне

Объяснение:

Популярно: Информатика