Дан одномерный целочисленный массив. Найти: сумму элементов массива, расположенных между первым и последним нулевыми элементами.
10-11 класс
|
Помогите написать код на Delphi.
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. Найти количество строк, в которых первый элемент совпадает с последним.
каждой строке необходимо вывести значение аргумента и соответствующее ему значение функции в форматированном виде с 4 знаками после запятой. Кроме того, во время построения таблицы необходимо найти и вывести в конце таблицы отдельной строкой следующее: Максимальное среди значений функции, имеющих нечетную целую часть
Читайте также
массиве 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
сначала задаются,а затем меняются.
Нц для 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