Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Barmaleyka
0 / 0 / 0
Регистрация: 13.10.2013
Сообщений: 22
1

нужно переделать задачу

04.12.2013, 20:56. Просмотров 221. Ответов 0
Метки нет (Все метки)

есть задача(написанная ниже) Дан массив A(N). Сформировать массив B(M), элементами которого являются большие из двух рядом стоящих в массиве A чисел.

Нужно переделать так, что бы условие было такое:Сформировать массив B(M), элементами которого являются средние арифметические соседних пар рядом стоящих в массиве А чисел.


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
uses crt;
type mas=array [1..100] of integer;
var
A,B:mas;
n,m:integer;
 
procedure vvod;
var i:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do begin
write('A[',i,']=');
readln(A[i]);
end;
end;
 
procedure form_b;
var i:integer;
begin
m:=0;
for i:=1 to n-1 do begin
inc(m);
if A[i]>A[i+1] then B[m]:=A[i] else B[m]:=A[i+1];
inc(i);
end;
end;
 
procedure vivod;
var i:integer;
begin
for i:=1 to n do
write(A[i]:4);
writeln;
writeln;
for i:=1 to m do
write(B[i]:4);
end;
 
begin
vvod();
m:=0;
if n mod 2<>0 then dec(n);
form_b();
if n mod 2<>0 then inc(n);
clrscr;
vivod();
readln;
end.

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

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2013, 20:56
Ответы с готовыми решениями:

Нужно сделать задачу

нужно переделать
написать функцию нахождения заданого числа. Если такого нет то вывести 0. uses...

Есть задача на С++, нужно переделать на Паскаль
Вот задача на С++ #include &lt;iostream.h&gt; #include &lt;iomanip.h&gt; #include...

Есть код, нужно переделать через Function
Задание: Даны 4 числа - X, Y, Z, T - длины сторон четырёхугольника. Найти...

Нужно переделать программу с циклом по параметру в циклы с пост- и предусловием (repeat и while)
Никак не получается( program e1; uses crt; var d,r,u,g: integer; begin...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.12.2013, 20:56

Программу сортировки нужно переделать так, чтобы она содержала процедуры
следующую программу сортировки нужно переделать так, чтобы она содержала...

надо переделать задачу она уже решена ну ее нужно переделать
вот задача const n=4; var a:array of integer; i,s:integer; begin for i:=1...

Нужно переделать задачу(моделирование системы)
вот решённая задача. Нужно переделать под задание.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru