Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
Гоша37
0 / 0 / 0
Регистрация: 01.11.2012
Сообщений: 11
1

Определить минимальный элемент, его номер в массиве, заменить этот элемент элемент числом 1000

01.11.2012, 20:34. Просмотров 1345. Ответов 1
Метки нет (Все метки)

1. Задать массив А[1..16] с помощью генератора случайных чисел положительными и отрицательными числами. Определить минимальный элемент, его номер в массиве, заменить этот элемент элемент числом 1000.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.11.2012, 20:34
Ответы с готовыми решениями:

Определить наибольший элемент массива Х и вывести исходный массив,этот элемент и его порядковый номер
определить наибольший элемент массива Х и вывести исходный массив,этот элемент и его порядковый...

Последовательность. Если на четном месте находится элемент, кратный 3, заменить этот элемент на его квадрат
дана последовательность натуральных чисел.Если на четном месте находится элемент,кратный 3,то...

Определить минимальный элемент массива С и его номер
Задан массив С(М). Определить минимальный элемент массива С и его номер С1<0, М<=40 P.S Сделайте...

Определить минимальный элемент массива и его порядковый номер
прошу помочь с решением

Задан массив С(М). Определить минимальный элемент массива С и его номер С1<0, М<=40
Задан массив С(М). Определить минимальный элемент массива С и его номер С1&lt;0, М&lt;=40

1
ermolay
3444 / 2382 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
02.11.2012, 14:22 2
Лучший ответ Сообщение было отмечено Гоша37 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
  n=16;
var
  a: array[1..n] of integer;
  i,j,imin: integer;
begin
  randomize;
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    a[i]:=random(199)-99;
    write(a[i],' ');
  end;
  writeln;
  imin:=1;
  for i:=2 to n do
    if a[i]<a[imin] then imin:=i;
  writeln('Минимальный элемент = ',a[imin],' на ',imin,' позиции.');
  a[imin]:=1000;
  writeln('Полученный массив:');
  for i:=1 to n do write(a[i],' ');
  readln;
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.11.2012, 14:22

Определить минимальный элемент, его № в массиве, заменить этот элемент его №
Помогите, пожалуйста Задать массив A с помощью генератора случайных чисел положительными и...

Определить минимальный элемент массива и его порядковый номер, заменить минимальный элемент массива нулём
Определить минимальный элемент массива С и его порядковый номер, замените минимальный элемент...

Найти минимальный элемент массива B(15) и определить его порядковый номер
Помогите с задачкой на массив: Найти минимальный элемент массива B(15) и определить его порядковый...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.