сервис вопросов и ответовПомогите пожалуйста!На языке Паскаль
10-11 класс|
|
В одномерном массиве, состоящем из п вещественных элементов, вычислить:
Елизавета1230
01 нояб. 2013 г., 17:48:48 (10 лет назад)
Stepan508
01 нояб. 2013 г., 20:33:54 (10 лет назад)
const n=10;
var a:array [1..n] of real;
i,k:integer;
b,min,s:real;
begin
for i:=1 to n do begin
a[i]:=21*random-10;
if a[i]=0 then k:=k+1;
write (a[i]:6:2);
end;
writeln;
writeln ('нулевых элементов ',k);
min:=a[1];
for i:=1 to n do
if a[i]<min then begin
k:=i;
min:=a[i];
end;
for i:=k+1 to n do
s:=s+a[i];
writeln('сумма после минимального = ',s:5:2);
for k:=1 to n do
for i:=1 to n-1 do
if abs(a[i])>abs(a[i+1]) then begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b;
end;
for i:=1 to n do
write (a[i]:6:2);
end.
Ответить
Другие вопросы из категории
Составить алгоритм для решения задачи и определить его вид: 1)Дан массив А(9). Поменять местами элементы относительно А(5). 2)Дан массив из 6 элементов. Пе
рвый равен 3. каждый следующий элемент получается из предыдущего умноженного его на 2. Найти все элементы массива и вывести массив на экран.
Читайте также
3. Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления а) y=x¹° б)y=x¹⁵ или а) y=x^10
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
1)Вычислить значения функции y=4*x^3-2*x^2+5 для x, изменяющегося от -3 до 1 с шагом 0,1 на языке ПАСКАЛЬ!!СРОЧНОО ЗАВТРА ЭКЗАМЕН РЕБЯЯТКИ!
2)Найти количество всех нечетных чисел на интервале от 11 до 20
3)Найти сумму целых положительных четных чисел на интервале от 1 до 100
4)Найти сумму ряда,общий член которого равен А(х)=1/(3*N-2)*(3*N+1)
5)Дано произвольное число n≤100.Определить количество цифр в числе
ОЧЕНЬ НУЖНО!!НА ЯЗЫКЕ ПАСКАЛЬ!ВЫРУЧАЙТЕ!
Составить программу на языке Паскаль.Определите, кратно ли трем значение целочисленной переменной X. Если это имеет место, то выведите на печать
значение Х с соответствующим сообщением, если нет, то выведите на печать "нет".
Помогите, пожалуйста, очень нужно)
Помогите, пожалуйста!!!
Составить блок-схему алгоритма решения задачи и программу на языке паскаль одним способом:
Σ сверху сигмы 40,снизу сигмы x=1 (x^2+(5/(x^2+8)))
Вы находитесь на странице вопроса "Помогите пожалуйста!На языке Паскаль", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.