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

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

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

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

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

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

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

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

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

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

Найти максимальное нечетное и минимальное четное числа
Помогите пожалуйста. Задачка по паскалю. Найти максимальное нечетное и...

1
Svager
394 / 374 / 405
Регистрация: 14.09.2013
Сообщений: 1,202
30.12.2013, 14:35 #2
Лучший ответ Сообщение было отмечено Micriovius как решение

Решение

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
Привет! Вот еще темы с решениями:

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

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

Найти максимальное и минимальное числа массива, и затем поменять их местами
Дан двумерный массив состоящий из чисел которые вводятся random.Найти...

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


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

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

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