Двухмерный массив: вычисление сумм элементов

@sanyachel9binsk · Регистрация: 27.10.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте, дорогие форумчане!

--------------------------------------
Помогите, пожалуйста, решить задание.
--------------------------------------
Даны действительные числа a1, ...,an ; b1, ...,bn.В последовательности a1, ...,an и в последовательности b1, ...,bn все отрицательные члены, следующие за членом с наибольшим значением, заменить на 0,5. Для поиска наибольшего значения и замены элементов использовать подпрограммы.
--------------------------------------
За ранее, спасибо.
Если что, то скрин прикрепил.

@sanyachel9binsk · 02.02.2013, 23:16 **[ТС]**

Я не могу понять, что за подпрограммы?

Добавлено через 32 секунды
Если можно, то напишите, пожалуйста, программу полностью.

Добавлено через 52 минуты
Ап.

Добавлено через 18 минут

Pascal

uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
var n:byte;
procedure Massiv(var a:mas;c:char);
var i:byte;
begin
writeln('Исходный массив ',c);
for i:=1 to n do
 begin
  a[i]:=9*random;
  write(a[i]:4:1);
 end;
writeln;
end;
procedure Zamena(var a:mas;c:char);
var i,imx:byte;
    mx:real;
begin
mx:=a[1];
imx:=1;
for i:=2 to n do
if a[i]>mx then
 begin
  mx:=a[i];
  imx:=i;
 end;
writeln('Наибольшее значение=',mx:0:1,' имеет элемент a[',imx,']');
if imx=n then writeln('Замен нет')
else
 begin
  writeln('Измененный массив ',c);
  for i:=1 to n do
   begin
    if i>imx then a[i]:=0.5;
    write(a[i]:4:1);
   end;
  writeln;
 end;
end;
var a,b:mas;
begin
clrscr;
randomize;
repeat
write('Размер массивов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
Massiv(a,'A');
Zamena(a,'A');
Massiv(b,'B');
Zamena(b,'B');
readln
end.

Вот только на Паскале попробовал написать...
Но не знаю, как эту программу написать на С++

@Olivеr · 02.02.2013, 23:32

Сейчас напишу на С++. Ждите.

C++

#include <iostream>
#include <string>
 
using namespace std;
 
size_t MaxItemIndex(const double arr[], size_t arr_size)
{
    double item_max(arr[0]);
    size_t index_max(0);
 
    for (size_t i=1; i!=arr_size; i++)
        if (arr[i]>item_max)
        {
            item_max=arr[i];
            index_max=i;
        }
    return index_max;
}
 
void ReplaceNegItems(double arr[],size_t start_i,size_t end_i,double val)
{
    for (size_t i=start_i; i!=end_i; i++)
        if (arr[i]<0)
            arr[i]=val;
}
 
void OutPutArray(double arr[],size_t start_i,size_t end_i)
{
    for (size_t i=start_i; i!=end_i; i++)
        cout<<arr[i]<<" ";
}
 
int main()
{
    double a[]= {6,7,44,-8,1};
    double b[]= {66,7.8,-9};
    size_t items_count_a(5);
    size_t items_count_b(3);
    double replace_val(0.5);
 
    double max_item_a=MaxItemIndex(a,items_count_a);
    ReplaceNegItems(a,max_item_a,items_count_a,replace_val);
    OutPutArray(a,0,items_count_a);
    cout<<endl;
    double max_item_b=MaxItemIndex(b,items_count_b);
    ReplaceNegItems(b,max_item_b,items_count_b,replace_val);
    OutPutArray(b,0,items_count_b);
}

@sanyachel9binsk · 02.02.2013, 23:35 **[ТС]**

Спасибо ещё раз!

@sanyachel9binsk 1 / 1 / 2 Регистрация: 27.10.2012 Сообщений: 209
		1
	Двухмерный массив: вычисление сумм элементов 02.02.2013, 22:03. Показов 534. Ответов 3 Метки нет (Все метки) Здравствуйте, дорогие форумчане! -------------------------------------- Помогите, пожалуйста, решить задание. -------------------------------------- Даны действительные числа a1, ...,an ; b1, ...,bn.В последовательности a1, ...,an и в последовательности b1, ...,bn все отрицательные члены, следующие за членом с наибольшим значением, заменить на 0,5. Для поиска наибольшего значения и замены элементов использовать подпрограммы. -------------------------------------- За ранее, спасибо. Если что, то скрин прикрепил. Миниатюры 0

@sanyachel9binsk 1 / 1 / 2 Регистрация: 27.10.2012 Сообщений: 209
	02.02.2013, 23:35 [ТС]	4
	Спасибо ещё раз! 0