Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
7 / 6 / 3
Регистрация: 25.10.2010
Сообщений: 218
1

Найти минимальный элемент среди элементов, расположенных на нечетных позициях массива

10.10.2011, 16:49. Просмотров 1729. Ответов 2
Метки нет (Все метки)

Срочно!

2. Дан массив А(15). Найти минимальный элемент среди элементов, расположенных на нечетных позициях массива, а также определить количество и произведение ненулевых элементов, следующих за первым минимальным элементом.
3. Дан массив А[6,6]. Если среди элементов массива есть элемент, равный В то переменной Х присвоить значение, равное сумме положительных элементов, расположенных слева от этого элемента, иначе переменной Х присвоить 0.
4. Дан массив А[5,5]. Построить массив В(5) по следующему правилу: В(J) присвоить максимальный элемент J-го столбца массива А.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2011, 16:49
Ответы с готовыми решениями:

Найти минимальный элемент среди элементов, расположеных на нечетных позициях массива
Дан массив А(15). Найти минимальный элемент среди элементов, расположеных на нечетных позициях...

Найти минимальный элемент среди элементов, расположенных в нечетных строках матрицы
Дан массив A. Найти минимальный элемент среди элементов, расположен-ных в нечетных строках...

Типизированные файлы: Найти максимум среди компонент, расположенных на четных позициях файла и минимум среди компонент на нечётных позициях
Задан числовой файл . Найти максимум среди компонент, расположенных на четных позициях файла и...

Найти минимальный элемент среди элементов, расположенных на нечетных позициях массива
Пожалуйста, кто нибудь помогите.... решить задачу: Дан массив А(15). Найти минимальный элемент...

2
Злой няш
1628 / 1266 / 435
Регистрация: 05.04.2010
Сообщений: 2,275
10.10.2011, 18:39 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Не по теме:

Цитата Сообщение от efe Посмотреть сообщение
Срочно!
И что с того?



4.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
   a : array[1..5, 1..5] of integer;
   b : array[1..5] of integer;
   i, j : integer;
begin
   for i := 1 to 5 do begin
      for j := 1 to 5 do begin
         write('a[', i, ', ', j, '] = '); readln(a[i, j])
      end;
      b[i] := a[1, i];
   end;
   
   for i := 1 to 5 do
      for j := 2 to 5 do
         if b[i] < a[j, i] then b[i] := a[j, i];
   
   write('Результат: ');
   for i := 1 to 5 do
      write(b[i], ' ');
   writeln
end.
0
313 / 272 / 272
Регистрация: 25.09.2011
Сообщений: 477
10.10.2011, 19:05 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

3.
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
  uses TpCrt;
  var
    A   : array[1..6,1..6] of integer;
    x,b : Integer;
    i,j,storej : Byte;
 
  Begin
    Randomize; storej:=0;
    Write('Введи число B ');Readln(b);
    for i:=1 to 6 do begin
      for j:=1 to 6 do begin
        A[i,j]:=random(50)-10; write(a[i,j]:8);
        if A[i,j]=B then storej:=j;
      end;
      writeln;
    end;
    X:=0;
    if storej<>0 then begin
      if storej<2 then Writeln('Число стоит в 1 колонке, слева элементов нет!')
      else begin
        for j:=1 to storej-1 do for i:=1 to 6 do
          if A[i,j]>0 then X:=X+A[i,j];
      end;
    end;
    Writeln(' X= ',x);
    Readln;
  End.
2.
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
  var
    A       : Array[1..15] of Integer;
    Min,P   : Integer;
    i,j,kol : Byte;
 
 
  Begin
    Randomize;
    min:=maxint; P:=1; kol:=0;
    Writeln('massiv A(15):');
    for i:=1 to 15 do begin
      a[i]:=random(15)-7; Write(a[i]:4);
      if odd(i) then if a[i]<min then begin
        min:=A[i];
        j:=i;  
      end;
    end;
    Writeln; Writeln('Мин эелементна позиции ',j,' равен ',min);
    if j=15 then Writeln('нет элементов для произведения')
            else begin
              for i:=j+1 to 15 do if A[i]<>0 then begin
                p:=p*a[i]; inc(kol);
              end;
              Writeln('количество ненулевых ',kol,' произведение =',p);
            end;
    Readln;
  End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2011, 19:05

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

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

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

Найти минимальный элемент среди элементов, расположенных на четных позициях массива
Дан массив А(15). Найти минимальный элемент среди элементов, расположенных на четных позициях...

Найти минимальный элемент среди элементов расположенных в нечетных строках массива
Дан массив А 5.5 найти минимальный элемент среди элементов расположенных в нечетных строках массива


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

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

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