Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 973 ответов!

Дан одномерный целочисленный массив. Найти: сумму элементов массива, расположенных между первым и последним нулевыми элементами.

10-11 класс

Помогите написать код на Delphi.

Nizhniy 04 июня 2013 г., 22:11:08 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Potemkina190420
04 июня 2013 г., 23:06:55 (10 лет назад)

ar i:integer; mas : array[0..19] of Integer; Begin Randomize; for i:=0 to 19 do mas[i] := Random(30)-15; for i:=1 to 20 do Begin if 0< mas[i]

Ответить

Другие вопросы из категории

Написать программу в Паскале.

1)Дан массив nxm. Найти количество строк, в которых первый элемент совпадает с последним.

Составьте программу построения таблицы значений вашей функции, состоящую из N строк, при изменении аргумента от L до R (значения вводятся пользователем). В

каждой строке необходимо вывести значение аргумента и соответствующее ему значение функции в форматированном виде с 4 знаками после запятой. Кроме того, во время построения таблицы необходимо найти и вывести в конце таблицы отдельной строкой следующее: Максимальное среди значений функции, имеющих нечетную целую часть

Читайте также

Задача 1 Составить программу При поступлении в вуз абитуриенты , получившие "двойку" на первом экзамене , ко второму не допускаются . В

массиве A[n] записаны оценки экзаменующихся , полученные на первом экзамене . Подсчитать , сколько человек не допущено ко второму экзамену .

Задача 2

В одномерном массиве , состоящем из n вещественных элементов , вычислить ;

1) минимальный элемент массива;

2)сумму элементов массива , расположенных между первым и последним положительными элементами .

Преобразовать массив таким образом , чтобы сначала располагать все элементы , равные нулю, а потом-все остальные .

Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,

расположенных между максимальным и минимальным элементами.

Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами

ну или исправьте мое пжл

program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);

for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1

else for I:=c+1 to b-1 do p:=p*mas[i];

if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;

close (g);
end.

Изменение

элементов массива

Дан массив из N положительных элементов, больших 1
(2<=N<=100).
После каждого элемента вставить его минимальный делитель
больший 1.



Формат входных данных:

На входе подаются в первой строке N - число элементов массива

Вторая строка содержит N чисел - значения элементов массива



Формат выходных данных: Выведите результирующий массив в строку



Пример:

Ввод

5

43 50 76 84 100



Вывод

43 43 50 2 76 2 84 2 100 2

В программе используется одномерный целочисленный массив А с индексами от 0 до 10. Ниже представлен фрагмент программы в котором значения элементов

сначала задаются,а затем меняются.

Нц для i от 0 до 10

А [ i ] := i

кц

Нц для i от 0 до 4

С := A[ i ]

A[ i ] := A [10 - i ]

A [10 - i ] :=C

кц

Чему будут равны элементы массива после выполнения фрагмента программы?

1) 10 9 8 7 6 5 4 3 2 1 0

2) 0 1 2 3 4 5 6 7 8 9 10

3) 10 9 8 7 6 5 6 7 8 9 10

4) 0 1 2 3 4 5 4 3 2 1 0



Вы находитесь на странице вопроса "Дан одномерный целочисленный массив. Найти: сумму элементов массива, расположенных между первым и последним нулевыми элементами.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.