Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

В отсортированном массиве найти кол-во минимальных элементов. (Программу нужно написать на Паскале, чтобы там присутствовали операторы такие, как:

5-9 класс

Random и Randomize)

Sandra1898 26 марта 2014 г., 8:52:33 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Iowwa
26 марта 2014 г., 11:00:18 (10 лет назад)

Немного не понял с тем что искать, поетому искал количество елементов которые <0

#include "stdafx.h"
#include<iostream>
#include<time.h>
using namespace std;
int const N = 15;
void main(){
setlocale(0,"");
srand(time(NULL));
int arr[N];
for (int i = 0; i < N ; i++) arr[i]=rand()%71-30;


int tmp;

for(int i = 0; i < N - 1; ++i) // i - номер прохода
{
for(int j = 0; j < N - 1; ++j) // внутренний цикл прохода
{
if (arr[j + 1] < arr[j])
{
tmp = arr[j + 1];
arr[j + 1] = arr[j];
arr[j] = tmp;
}
}
}

int count(0);
for (int i = 0; i < N; i++) {
if (arr[i]<0) count++;
cout<<arr[i]<<" ";

}


cout<<endl<<"Kolichestvo otricatelnih chisel = "<<count<<endl;
system("pause");
}

 

 

______ ПАСКАЛЬ ____

 

const
m = 10;

var
arr: array[1..m] of integer;
i, j, k,min: integer;

begin
cls; min:=0;
randomize;

for i := 1 to m do begin
arr[i] := random(71)-30;
end;
writeln; writeln;


for i := 1 to m-1 do
for j := 1 to m-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;

write ('Îòñîðòèðîâàííûé ìàññèâ: ');
for i := 1 to m do
begin
if arr[i]<0 then inc(min);
write (arr[i]:4);
end;
writeln;
write('min chisel = ',min);
writeln;

readln
end.

Ответить

Другие вопросы из категории

какие логические операции соответствуют представленным ниже высказываниям? высказывания: 1) число 126 чётное и трёхзначное 2) неверно, что солнце

движется вокруг Земли. 3) если сумма цифр числа делится на 3, то число делится на 3. 4) число делится на 3 тогда и только тогда когда сумма цифр числа делится на 3. 5) все ученики 10а класса занимаются спортом или танцами ЛОГИЧЕСКАЯ ОПЕРАЦИЯ : А. АvВ, В.А=>В С. АɅС D. -А. АВ

Читайте также

1. Дан массив из 6 натуральных чисел. Над элементами массива разрешено проделывать только одну операцию: менять местами менять местами любые два

расположенных рядом элемента. Какое минимальное кол-во раз необходимо выполнить эту операцию, для того, чтобы массив оказался отсортирован по убыванию?
2. Книга, набранная с помощью компьютерак, содержит 250 страниц. На каждой странице 45 строк, в каждой строке - 50 символов. Какой объем информации в байтах содержится в книге?
3. Объем видеопамяти составляет 62.5 Мбайт. Графический дисплей работает в режиме 320 х 400 пикселей. Какое максимальное кол-во цветов может содержать палитра?

_____________________________________________________

Если можно с объяснением,пожалуйста...)

1) Удвоить все элементы массива. 2)Найти сумму элементов двух массивов одинаковой размерности. 4) Найти Минимальные элементы массива и

его индекс.

5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива

7) Определить количество максимальных элементов массива

P.S Ребят, все в паскале...заранее спасибо=*

Помогите Решить 4 любые задачи:

1)С клавиатуры вводится последовательность чисел, оканчивающаяся 0. Сколько элементов последовательности превышает число 100?
2)Вводится последовательность из 10 вещественных чисел. Вычислить сумму элементов, не превышающих числа А.
3)С клавиатуры вводится последовательность из 7 целых чисел. Определить каких чисел больше: четных или нечетных.
4)С клавиатуры вводится последовательность из 9 чисел. Найти разность между макимальным и минимальным элементами.
5)С клавиатуры вводится последовательность чисел, оканчивающаяся 0. Найти порядковый номер отрицательного элемента, если считать элементы справа. В случае нескольких отрицательных элементов вывести номер последнего из них (т.е. самого правого).
6)С клавиатуры вводится последовательность чисел, оканчивающаяся 0. Найти порядковый номер первого двузначного элемента последовательности, считая элементы в прямом порядке.
7)С клавиатуры вводится последовательность положительных чисел, оканчивающаяся 0. Найти сумму двузначных элементов последовательности.
8)С клавиатуры вводится последовательность чисел, оканчивающаяся 0. Найти произведение отрицательных элементов последовательности.
9)С клавиатуры вводится последовательность чисел, оканчивающаяся 0. Найти в ней минимальный элемент.
10)С клавиатуры вводятся числа 2, 5 или 10, означающие удаления игроков на соответствующее кол-во минут. Условно положительные значения означают удаления в команде А, а отрицательные - в команде В. Для завершения ввода данных используется 0. Сколько всего штрафного времени заработано командами А и В отдельно, а также определить общее штрафное время.



Вы находитесь на странице вопроса "В отсортированном массиве найти кол-во минимальных элементов. (Программу нужно написать на Паскале, чтобы там присутствовали операторы такие, как:", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.