1)Заполнить массив N чисел значениями и вывести на экран произведение частей
1)Заполнить массив N чисел значениями и вывести на экран творение частей с нечётными номерами через процедуры.
2)Дан массив действительных чисел. Нужно найти В равное среднему арифметическому частей массива, и величайшее отклонение от среднего, т. е. max(/a1b/,/a2b/,../anb/).
Пожалуйста помогите!!!
Нина
обчной
Элина Требухина
АВС
Даша Кунова
Я хотела пробовать новые процедуры, ну да ладно.
Ruslan Koshun
привет
Сайтц
Варвара
помогите
Данька Мережка
плизик
Егор Моруденко
не решай им
Кира Хоряк
Подожди, пожалуйста. Здесь не так трудно.
Степа Альтшуллер
спасибо
Sofija Talalaeva
подождем
1 ответ
Анатолий Клименчук
1) var ar:array of integer;
n,i:integer;
procedure writing(ar:array of integer; var i,n:integer);
begin;
while ilt;=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 do
readln(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 otkmlt;otk then otkm:=otk;
end;
writeln;
writeln('Среднее арифметическое:',sr);
write('Максимальное отклонение:',otkm);
end.
n,i:integer;
procedure writing(ar:array of integer; var i,n:integer);
begin;
while ilt;=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 do
readln(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 otkmlt;otk then otkm:=otk;
end;
writeln;
writeln('Среднее арифметическое:',sr);
write('Максимальное отклонение:',otkm);
end.
Семик Постолаки
через процедуры
Артём Гыренков
можешь?
Тимур Перезябов
Кажется, кто-то набрался от меня невнимательности. На данный момент её позову.
Алла
Этот новый дизайн... Бррр.
Amina Magidovich
окай
Евген Чабин
Я тут. Сейчас поправлю.
Елизавета Карпиенко
Поправила.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Облако тегов