Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Kappa322
0 / 0 / 0
Регистрация: 05.10.2015
Сообщений: 34
#1

В каждом из массивов найти наименьшее значение и умножить на него все элементы массивов - Pascal

08.10.2015, 09:50. Просмотров 480. Ответов 3
Метки нет (Все метки)

Заданы два массива A(N) и B(M). В каждом из массивов найти наименьшее значение и умножить на него все элементы массивов. На печать вывести исходные и преобразованные массивы.
Спасибо.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.10.2015, 09:50
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В каждом из массивов найти наименьшее значение и умножить на него все элементы массивов (Pascal):

Если значение элементов массива подчиняются условию x1<=x2<=...<=x15,то все нечётные элементы массива умножить на А,в противном случае чётные умножить
Помогите пожалуйста решить задачу:cry:: 1.Задан массив x(15).Если значение...

Найти в каждом из массивов минимальный элемент
Две задачи, которые нужно решить в одной программе. (с помощью процедур) 1....

Вычислить значение выражения, использующее в качестве переменных элементы одномерных массивов
Задача: Разработать алгоритм и программный код на языке Pascal. Даны массивы...

Найти совпадающие элементы двух одномерных массивов.
Заполните случайными числами в диапазоне от 1 до 5 два массива: A и B. Найдите...

Найти наибольшие элементы и их порядковые номера массивов Х(10) и Y(7)
Найти наибольшие элементы и их порядковые номера массивов Х(10) и Y(7). Спасибо.

Найти индекс и значение наибольших элементов массивов A и B
Номер и значение наибольших элементов массивов {ai}, {|ai|}, i = 1, …, N.

3
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
08.10.2015, 09:59 #2
http://www.cyberforum.ru/post762967.html
0
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,652
Записей в блоге: 1
08.10.2015, 10:20 #3
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
45
46
47
48
49
50
51
52
53
54
Const nmax=100;
Type mas=array[1..nmax] of real;
Var A,B:mas;
    n,m:integer;
    minA, minB: real;
Procedure InPut(Var A:mas;Var n:integer;ch:char);
Var i:integer;
Begin
    Repeat
      write('Введите количество элементов массива ',ch,': ');
      readln(n);
    Until (n>0)and(n<=nmax);
    For i:=1 to n do
     A[i]:=random*10;
End;
Procedure OutPut(A:mas;n:integer;s:string);
Var i:integer;
Begin
    writeln(s);
    For i:=1 to n do
     write(A[i]:7:2);
    writeln;
End;
Function Min(A:mas;n:integer);
Var i:integer;
    mn:real;
Begin
    mn:=A[1];
    For i:=2 to n do
     if A[i] < mn then mn := A[i];
    Min := mn;
End;
Procedure Mult(Var A:mas;n:integer;m:real);
Var i:integer;
Begin
    For i:=1 to n do
     A[i]:=A[i]*m;
End;
Begin
   Input(A, n, 'A');
   OutPut(A, n, 'Исходный массив A');
   minA := Min(A, n);
   writeln('Min в массиве A = ',minA:0:2);
   Mult(A, n, minA);
   OutPut(A, n, 'Полученный массив A');
   readln;
   Input(B, m, 'B');
   OutPut(B, m, 'Исходный массив B');
   minB := Min(B, m);
   writeln('Min в массиве B = ',minB:0:2);
   Mult(B, m, minB);
   OutPut(B, m, 'Полученный массив B');
   readln;
End.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3755 / 2452 / 2034
Регистрация: 22.11.2013
Сообщений: 6,821
08.10.2015, 11:06 #4
Полагаю, в таком ключе :-) подобное вряд ли кто решал:
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
type
  eproc = procedure(var n: Integer; var p: Integer);
procedure ei(var a: array of Integer; f: eproc; var p: Integer);
var i: Integer;
begin
  for i:=Low(a) to High(a) do f(a[i], p);
end;
{$F+}
procedure ewrt(var n: Integer; var p: Integer); begin Write(' ',n) end;
procedure emul(var n: Integer; var p: Integer); begin n:=n*p end;
procedure emin(var n: Integer; var p: Integer); begin if n<p then p:=n end;
procedure ernd(var n: Integer; var p: Integer); begin n:=1+Random(p) end;
const
  n=10; m=10;
var
  a: array [1..n] of Integer;
  b: array [1..m] of Integer;
  p: Integer;
begin
  Randomize; 
  p:=99;         ei(a,ernd,p); ei(b,ernd,p);
  Write('A =');  ei(a,ewrt,p); WriteLn;
  Write('B =');  ei(b,ewrt,p); WriteLn;
  p:=a[1];       ei(a,emin,p); ei(a,emul,p);
  p:=b[1];       ei(b,emin,p); ei(b,emul,p);
  Write('A''='); ei(a,ewrt,p); WriteLn;
  Write('B''='); ei(b,ewrt,p); WriteLn;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2015, 11:06
Привет! Вот еще темы с решениями:

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

Найти среднее значение массивов А[1..5], B[1..5] и сравнить их между собой. Вывести на экран большие из них
В программе использивать подпрограмму-функцию)

Записать в файл f2 последовательность массивов, получающихся преобразованием исходных массивов
Pascal Дан файл h1, компонентами которого являются массивы целых чисел...

Типизированные файлы. Записать в файл Н2 последовательность массивов, получающихся преобразованием исходных массивов
Дан файл Н1, элементами которого являются массивы целых чисел а0,а1,…,а4....


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

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

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