Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Micriovius
0 / 0 / 0
Регистрация: 01.08.2011
Сообщений: 76
#1

Задан массив Z(N). Найти минимальное и максимальное числа в интервале чисел [–8; 7.5] - Turbo Pascal

29.12.2013, 21:01. Просмотров 588. Ответов 1
Метки нет (Все метки)

2. Задан массив Z(N). Найти минимальное и максимальное числа в интервале чисел [–8; 7.5]. Все положительные числа переписать в новый массив А.

Помогите пожалуйста.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.12.2013, 21:01
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Задан массив Z(N). Найти минимальное и максимальное числа в интервале чисел [–8; 7.5] (Turbo Pascal):

Вводить с клавиатуры 3 числа. Найти максимальное и минимальное из них и вывести на экран. Выход из программы при равенстве этих чисел - Turbo Pascal
Помогите пожалуйста. Вводить с клавиатуры 3 числа. Найти максимальное и минимальное из них и вывести на экран. Выход из программы при...

Задан двумерный массив размером M на N. Найти минимальное значение - Pascal
Задан двумерный массив размером M на N. Найти минимальное значение среди элементов над главной диагональю.

Найти максимальное и минимальное из трех чисел - Turbo Pascal
Даны действительные числа x, y, z. Найти: a) max (x, y, z); b) min (x, y, z).

Найти максимальное и минимальное из трех чисел - Turbo Pascal
Даны действительные числа x, y, z. Получить: max(x,y,z)+min(x,y,z)

Найти минимальное и максимальное из данных чисел - Pascal
Описать процедуру, записывающую в переменную X минимальное из значений X и Y, а в переменную Y — максимальное из этих значений. Используя...

Найти максимальное нечетное и минимальное четное числа - Pascal
Помогите пожалуйста. Задачка по паскалю. Найти максимальное нечетное и минимальное четное числа. Добавлено через 43 минуты Помогите...

1
Svager
393 / 373 / 212
Регистрация: 14.09.2013
Сообщений: 1,200
30.12.2013, 14:35 #2
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
uses crt;
const n=10;
var a,b:array[1..n] of integer;
i,x,j,k:integer;
 
BEGIN
clrscr;
            for i:=1 to n do
             begin
              a[i]:=random(20)-13;
              write(a[i]:4);
             end;
             writeln;
 
             j:=1;
                 for i:=1 to n do
                  if a[i]>0 then
                  begin
                   b[j]:=a[i];
                   inc(j);
                   end;
                 writeln;
                 for i:=1 to j-1 do
                 write(b[i]:4);
 
                 readkey;
END.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.12.2013, 14:35
Привет! Вот еще темы с ответами:

Найти минимальное и максимальное числа массива и их порядковые номера. - Pascal
Помогите решить простенькую задачку для друга,если можно с блок схемой Найти минимальное и максимальное числа массива и их порядковые ...

Найти минимальное и максимальное из четных чисел и записать их в файл - Turbo Pascal
Найти минимальное и максимальное из четных чисел и записать их в файл output.txt.

В массиве найти максимальное и минимальное нечётные числа и их среднее арифметическое - Turbo Pascal
Имеется массив А из N произвольных чисел. Используя операторы цикла, составить программу нахождения максимального и минимального нечётных...

Найти минимальное положительное и максимальное отрицательное числа, не входящие в вектор - Pascal
Задание: в целочисленном векторе vector найти минимальное положительное и максимальное отрицательное числа, не входящие в этот вектор....


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

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

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