0 / 0 / 0
Регистрация: 09.01.2011
Сообщений: 25
1

Определить минимальный элемент среди элементов, значение которых кратно пяти и не равно нулю

20.10.2011, 16:45. Показов 1263. Ответов 1
Метки нет (Все метки)

Ввести одномерный массив X(N).
Определить минимальный элемент среди элементов, значение которых кратно пяти и не равно
нулю. Разделить каждый элемент массива X на вычисленное значение и записать в новый
массив Y(N). Выдать на печать исходный и результирующий массивы или дать сообщение о
невозможности создания нового массива
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.10.2011, 16:45
Ответы с готовыми решениями:

Определить минимальный элемент среди элементов, значение которых кратно пяти и не равно нулю
Ввести одномерный массив X(N) (N<=90). Определить минимальный элемент среди элементов, значение...

Выведите массив на экран и найдите количество элементов, значение которых равно нулю
"Данный двухмерный массив размерностью 5X4. Заполните его случайными числами с интервала -20 .. 20:...

Выполнить путём сдвига вправо все биты, значение которых равно нулю и влево все биты, значение которых равно единице
Выполнить путём сдвига вправо все биты, значение которых равно нулю и влево все биты, значение...

Найти минимальный элемент среди положительных элементов, расположенных левее первого элемента, равного нулю
Пишет что нет нулевого, даже когда ввожу 0, и посмотрите другие ошибки. СРОЧНО НУЖНО!!! int...

1
15 / 15 / 13
Регистрация: 17.10.2010
Сообщений: 69
20.10.2011, 17:14 2
Лучший ответ Сообщение было отмечено AJIuHoK как решение

Решение

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
uses crt;
const
n=10; z=10;
var
a:array[1..n] of integer;
y:array[1..z] of integer;
i,min,k:integer;
f:boolean;
begin
clrscr;
randomize;
for i:=1 to n do
 a[i]:=random(101)-50;
writeln('X(N):');
for i:=1 to n do
write(a[i]:5);
  writeln;
min:=50; f:=false;
for i:=1 to n do
  if a[i] mod 5=0 then
    if a[i]<min then
     begin
      min:=a[i];
      f:=true;
     end;
if f=false then
 writeln('V massive net elementov kratnih 5')
else
 begin
  k:=0;
  for i:=1 to n do
    if a[i]<min then k:=k+1;
  writeln('minimalniy element kratniy 5 = ',min);
  writeln('kolvo elementov massiva menshih minimalnogo kratnogo 5 = ',k);
 end;
 for i:=1 to n do
y[i]:=a[i];
writeln('Y(N):');
for i:=1 to z do
write(y[i]/min:2:2,'| ');
writeln;
write('massive sozdat nevozmozhno');
readln
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.10.2011, 17:14
Помогаю со студенческими работами здесь

Определить максимальный элемент массива, среди отрицательных, элементов кратных пяти
надо консольное приложение , без рандомайза функций и процедур в делфи.Прошу помогите)1 курс,завтра...

Определить, сколько среди данных чисел равно нулю
Определить, сколько среди данных чисел равно нулю. В условии задачи дана произвольная...

Для каждой строки матрицы определить минимальный элемент, среди которых найти максимальный
Задание: Дан двумерный массив из 5 строк и 6 столбцов. Определить для каждой строки минимальный...

Найти минимальный элемент матрицы среди элементов, сумма индексов которых нечетна
помогите написать код(я 0 в delphi)

Найти минимальный элемент среди элементов массива, порядковые номера которых кратны 4
Нужна помощь... Вот задача: Найти минимальный элемент среди элементов массива, порядковые номера...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru