сервис вопросов и ответов(Паскаль)3. Заполнить с клавиатуры массив из 10 элементов. Проверить,
5-9 класс|
|
есть ли в массиве одинаковые элементы и
вывести их на экран.
Aleovasilieva2
19 сент. 2013 г., 19:54:25 (10 лет назад)
Sazar
19 сент. 2013 г., 22:33:44 (10 лет назад)
program gt;
var a,b:array[1..100]of integer;
j,i,h:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
end;
for i:=1 to 10 do
begin
h:=0;
for j:=1 to 10 do
begin
if(a[i]=a[j])then h:=h+1;
end;
b[i]:=h;
end;
for i:=1 to 10 do
begin
if(b[i]>1)then begin
for j:=1 to b[i] do
begin
write(a[j],' ');
endl
end;
end.
Ответить
Другие вопросы из категории
число 2001 перевести из двоичной
системы в десятичную и наоборот, пожалуйста
Читайте также
(Паскаль)2.Заполнить с клавиатуры массив из 10 элементов. Если
минимальный элемент находится в первой
половине массива увеличить каждый четный элемент массива в два раза, в противном случае массив
оставить без изменения. Вывести новый
массив на экран в виде строки.
решить через паскаль через массивы)) 1.Дан одномерный массив из 10 элементов. Заменить все большие 7 члены массива числом 7. Найти количество
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
(Паскаль)1.
Заполнить с клавиатуры массив из 10 элементов. Подсчитать количество
положительных и отрицательных элементов массива.
ССССРРРРРРРРРРРРРРЛОООООООООООЧЧЧЧЧЧЧЧНООООООООО!!! 1. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
Вы находитесь на странице вопроса "(Паскаль)3. Заполнить с клавиатуры массив из 10 элементов. Проверить,", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.