сервис вопросов и ответовНапишите решение в Паскале: массив А заполнен случайным образом ста целыми числами от 0 до 1000, определить имеются ли в массиве повторяющиеся элементы.
10-11 класс|
|
Саша1Пушкарёв
25 мая 2014 г., 8:24:08 (9 лет назад)
SevdaShahmerda
25 мая 2014 г., 10:21:39 (9 лет назад)
var
a:array[1..100] of integer;
povt,i,j,elem:integer;
begin
povt:=0;
randomize;
for i:=1 to 100 do
a[i]:=random(1001);
for j:=1 to 100 do
povt:=0;
begin
for i:=1 to 100 do
if a[i]=a[j] then
begin
elem:=a[i];
povt:=povt+1;
end;
povt:=povt-1;
write('Число= '+elem+ ' Количество повторений= '+ povt);
end;
Ответить
Другие вопросы из категории
Во сколько уменьшится информационный объем страницы текста ( текст не содержит управляющих символов форматирования ) при его преобразовании из
котировки Unicode ( таблица кодировали содержит 65536 символов ) в котировку windows ( таблица котировки содержит 256 символов )?
Читайте также
ПАСКАЛЬ.1)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 1000.опишите на русском языке или на одном из
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
1.Одномерный массив заполнен случайным образом. Найти количество четных элементов. 2. Одномерный массив размерностью N , где N -нечетное число,
заполнен случайными числами от -15 до 6. Все , числа кратные 3 заменить на противоположные.
Вы находитесь на странице вопроса "Напишите решение в Паскале: массив А заполнен случайным образом ста целыми числами от 0 до 1000, определить имеются ли в массиве повторяющиеся элементы.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.