В отсортированном массиве найти кол-во минимальных элементов. (Программу нужно написать на Паскале, чтобы там присутствовали операторы такие, как:
5-9 класс
|
Random и Randomize)
Немного не понял с тем что искать, поетому искал количество елементов которые <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.
Другие вопросы из категории
движется вокруг Земли. 3) если сумма цифр числа делится на 3, то число делится на 3. 4) число делится на 3 тогда и только тогда когда сумма цифр числа делится на 3. 5) все ученики 10а класса занимаются спортом или танцами ЛОГИЧЕСКАЯ ОПЕРАЦИЯ : А. АvВ, В.А=>В С. АɅС D. -А. АВ
Читайте также
расположенных рядом элемента. Какое минимальное кол-во раз необходимо выполнить эту операцию, для того, чтобы массив оказался отсортирован по убыванию?
2. Книга, набранная с помощью компьютерак, содержит 250 страниц. На каждой странице 45 строк, в каждой строке - 50 символов. Какой объем информации в байтах содержится в книге?
3. Объем видеопамяти составляет 62.5 Мбайт. Графический дисплей работает в режиме 320 х 400 пикселей. Какое максимальное кол-во цветов может содержать палитра?
_____________________________________________________
Если можно с объяснением,пожалуйста...)
его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива
7) Определить количество максимальных элементов массива
P.S Ребят, все в паскале...заранее спасибо=*
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 и 10 элементов