Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Requiem_
0 / 0 / 0
Регистрация: 08.03.2013
Сообщений: 24
#1

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

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

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

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

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

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

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

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

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

3
Paster Fob
292 / 270 / 45
Регистрация: 03.05.2012
Сообщений: 565
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 / 19
Регистрация: 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 / 0
Регистрация: 08.03.2013
Сообщений: 24
10.03.2013, 14:20  [ТС] #4
Большое спасибо
0
10.03.2013, 14:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.03.2013, 14:20
Привет! Вот еще темы с ответами:

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

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

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

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


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

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

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