Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 03.12.2013
Сообщений: 47
1

Составить блок схему к программе

05.12.2013, 23:39. Просмотров 330. Ответов 1
Метки нет (Все метки)

Дан одномерный массив Х(N) (N<=60). На место отрицательных элементов массива записать среднее арифметическое максимального и минимального элементов. Результат вывести на экран.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var a:array[1..60] of real;
n,i:integer;
min,max:real;
begin
readln(n);{Ввести количество элементов}
read(a[1]); min:=a[1]; max:=a[1];
for i:=2 to n do
begin
read(a[i]);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
for i:=1 to n do begin if a[i]<0 then a[i]:=(min+max)/2; write(a[i],' '); end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2013, 23:39
Ответы с готовыми решениями:

Составить блок-схему к программе:
uses crt; var i:integer; s:integer; begin clrscr; for i:=1 to 100 do begin if i mod 2...

По программе составить блок-схему
program pr1; uses crt; Var t: text; m, z1, z2, d1, d2, y, a, db1, db2, aw, bw, da1,...

Составить блок схему по программе
Помогите пожалуйста составить блок схему по этой проге: Const n=2; Type matr=array of real;...

Составить блок-схему по программе
составить блок схему по программе Program N_2; uses crt; const n = 15; var x :...

1
693 / 567 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
06.12.2013, 10:17 2
seregeyshev,
0
Миниатюры
Составить блок схему к программе  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.12.2013, 10:17

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

Составить блок схему по программе
составить блок схему по программе Program N_3; uses crt; var s:string; i,k,mx,mn:byte;...

Составить блок схему к программе
Затрудняюсь составить блок схему, помогите плз Uses crt; Const n=15; Var x,y,z: Array of...

Составить блок схему к программе
Помочь составить блок схему к программе. uses crt; var a:array of integer; ...

Составить блок-схему по программе
составить блок схему по программе Program N_4_1; uses crt; var a:array of integer; ...


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

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

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