Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 07.04.2014
Сообщений: 5
1

Вычислить произведение минимальных элементов

07.04.2014, 20:37. Просмотров 982. Ответов 2
Метки нет (Все метки)

1)Массив D состоит из 5 строк и 5 столбцов. Вычислить произведение минимальных элементов каждой строки массива.
2)Даны два различных числа x и y. Если оба числа положительные или отрицательные, то найти min(x, y), в противном случае найти max(|x|, |y|)
Как это записать в паскале?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.04.2014, 20:37
Ответы с готовыми решениями:

найти произведение минимальных элементов в массиве
люди помогите с задачей. дан двумерный массив размерности NxM. найти произведение минимальных...

Протабулировать функцию на промежутке a и b с шагом h вычислить произведение максимальных и минимальных значений функции
Протабулировать функцию на промежутке a и b с шагом h вычислить произведение максимальных и...

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

Вычислить произведение отрицательных элементов P1 и произведение положительных элементов Р2
В последовательности действительных чисел a1, a2, …, an есть только положительные и...

2
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
08.04.2014, 01:21 2
Лучший ответ Сообщение было отмечено Mishka_59_RUS как решение

Решение

Mishka_59_RUS, первое настолько простое, что стыдно делать даже..

второе аналогично, но может тут у вас проблема

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
uses crt;
var x,y,min,max:integer;
    f:boolean;
BEGIN
 clrscr;
  write('x=');
   readln(x);
    write('y=');
     readln(y);
  f:=false;
   if ((x>0) and (y>0)) or ((x<0) and (y<0)) then
    begin
     if x<y then
      begin
       min:=x;
       f:=true;
      end
     else
      begin
       min:=y;
       f:=true;
      end;
    end
   else
    begin
     if x>y then
      begin
       max:=abs(x);
       f:=false;
      end
     else
      begin
       max:=abs(y);
       f:=false;
      end;
    end;
   if f=true then
    writeln('MIN = ',min)
   else
    writeln('MAX = ',max);
 readkey;
END.
1
Cyborg Drone
08.04.2014, 01:39     Вычислить произведение минимальных элементов
  #3
 Комментарий модератора 
Mishka_59_RUS, ознакомьтесь с правилами форума. Одна тема- один вопрос.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.04.2014, 01:39
Привет! Вот еще темы с ответами:

Вычислить произведение отрицательных элементов и произведение положительных, и сравнить их
Входные данные записываются в файл input.txt, а выходные в output.txt. По окончании работы над...

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

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

Вычислить S=P1-P2, где Р1-произведение элементов числового одномерного массива А, а Р2-произведение элементов массива В
Вычислить S=P1-P2, где Р1-произведение элементов числового одномерного массива А, а Р2-произведение...


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

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

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