Задан массив А из n элементов. Заменить в нём каждый элемент полусуммой предыдущего и последующего, если n=0 то заменить на второй, а если последний равен
10-11 класс
|
0 то заменить на предпоследнее.
program gt;
var a,b:array[1..1000]of real;
s,n,i:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=2 to n-1 do
b[i]:=(a[i-1]+a[i+1])/2;
if(a[1]=0)then b[1]:=a[2] else b[1]:=b[2]/2;
if(a[n]=0)then b[n]:=a[n-1] else b[n]:=b[n-1]/2;
for i:=1 to n do
write(b[i],' ');
end.
Другие вопросы из категории
program chislo;
var a,i:integer;
begin
i:=3;
writeln(i);
repeat
a:=i+2;
until a <56;
writeln(a);
end.
папка?выбрать основные папки из нее
написать скрытые папки,в какой паки храняться драйверы
помогите написать конспект на эти темы
Читайте также
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
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.
енные значения от -100 до 100. Напишите программу, которая позволит подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. Первый элемент не равен 0. (Паскаль)
среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. СРОЧНО QBaSIC