Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Requiem_
0 / 0 / 2
Регистрация: 08.03.2013
Сообщений: 24
#1

Наименьший член последовательности заменить средним арифметическим всех членов - Pascal ABC

08.03.2013, 18:31. Просмотров 560. Ответов 3
Метки нет (Все метки)

1. Даны целые числа. Наименьший член последовательности заменить средним арифметическим всех членов (если в последовательности несколько членов со значением минимума, то заменить каждый из них).
2.В данной действительной матрицы размера 6*9 поменять местами строку, содержащую элемент с наибольшим значением, со строкой, содержащий элемент с наименьшим значением. Предполагается, что эти элементы единственны.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.03.2013, 18:31
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Наименьший член последовательности заменить средним арифметическим всех членов (Pascal ABC):

Наименьший член последовательности заменить целой частью среднего арифметического всех членов.
Даны целые числа a1, a2, ..., an. Наименьший член последовательности a1, a2,...

В одномерном массиве заменить все элементы, стоящие на нечетных местах средним арифметическим всех элементов
11. В одномерном массиве заменить все элементы, стоящие на нечетных местах...

Наибольшее заменить средним арифметическим двух чисел, наименьшее заменить их удвоенным произведением
Даны 2 числа. Наибольшее заменить средним арифметическим двух чисел, наименьшее...

Заменить элемент A[k] средним арифметическим K первых элементов
Помогите пожалуйста с кодом: Задан вещественный массив А размерностью N....

Заменить в каждом из них максимальный элемент средним арифметическим положительных элементов
Ввести одномерные массивы X1, X2, X3 . Заменить в каждом из них максимальный...

Заменить в каждом из них максимальный элемент средним арифметическим положительных элементов
Ввести одномерные массивы X1, X2, X3 . Заменить в каждом из них максимальный...

3
Paster Fob
293 / 271 / 194
Регистрация: 03.05.2012
Сообщений: 566
08.03.2013, 23:42 #2
1).
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
const
  csize=10;
 
type
  tarray=array [1..csize] of real;
 
var
  a:tarray;
  min,sr:real;
  i:byte;
  flag:boolean;
 
begin
  randomize;
  flag:=true;
  sr:=0;
  for i:=1 to csize do begin
    a[i]:=random(100)-50;
    if flag then begin
      min:=a[i];
      flag:=false;
    end;
    if min>a[i] then min:=a[i];
    sr:=sr+a[i]/csize;
    write(a[i]:5:0);
  end;
  writeln;
  sr:=sr/csize;
  for i:=1 to csize do begin
    if a[i]=min then begin
      a[i]:=sr;
      write(a[i]:7:2);
    end
    else write(a[i]:5:0);
  end;
  readln;
end.
1
ntrx
122 / 122 / 82
Регистрация: 03.01.2013
Сообщений: 241
09.03.2013, 02:34 #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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
program sfdsad;
uses crt;
const n = 6;
      m = 9;
var a : array[1..n, 1..m] of real;
    tmp1,tmp2 : array[1..m] of real;
    i,j : byte;
    max,min : real;
    maxi, mini : byte;
begin
     randomize();
 
     for i:=1 to n do
         for j:=1 to m do
             a[i,j] := random(20)+1;
             
     max := a[1,1];
     maxi := 1;
     min := a[1,1];
     mini := 1;
     for i:=1 to n do begin
         for j:=1 to m do begin
             if (a[i,j] > max) then begin
                max := a[i,j];
                maxi := i;
             end;
             if (a[i,j] < min) then begin
                min := a[i,j];
                mini := i;
             end;
             write(a[i,j]:2:0,' ');
         end;
         writeln;
     end;
     writeln('Max element: ',max,'[',maxi,']');
     writeln('Min element: ',min,'[',mini,']');
     for j:=1 to m do begin
         tmp1[j] := a[maxi,j];
         tmp2[j] := a[mini,j];
     end;
     for j:=1 to m do begin
         a[maxi,j] := tmp2[j];
         a[mini,j] := tmp1[j];
     end;
     for i:=1 to n do begin
         for j:=1 to m do
             write(a[i,j]:2:0,' ');
         writeln;
     end;
     readkey;
end.
1
Requiem_
0 / 0 / 2
Регистрация: 08.03.2013
Сообщений: 24
10.03.2013, 14:20  [ТС] #4
Большое спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.03.2013, 14:20
Привет! Вот еще темы с решениями:

Замените каждый элемент массива средним арифметическим всех предшествующих ему элементов
Замените каждый элемент массива средним арифметическим всех предшествующих ему...

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

Заменить числа в файле со второго по предпоследнее средним арифметическим
Дан файл вещественных чисел. Заменить числа в файле со второго по предпоследнее...

Максимальный элемент матрицы заменить средним арифметическим строки, в которой он находится
решите пожалуйста задачу на двумерные массивы: В матрице D максимальный...


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

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

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