Задание с Массивами

Модератор: Модераторы

Задание с Массивами

Сообщение funikovatvar » 27.11.2020 20:16:11

Для произвольного одномерного массива С из 10 элементов к четным прибавить максимальный элемент массива, а из элементов с четными номерами вычесть В, где В вводится с клавиатуры.

Не могу решить задание.
funikovatvar
незнакомец
 
Сообщения: 1
Зарегистрирован: 27.11.2020 19:03:17

Re: Задание с Массивами

Сообщение Снег Север » 28.11.2020 09:29:35

Для таких вопросов есть раздел "Помощь за вознаграждение"
viewforum.php?f=43
Никому не интересно просто так решать школьные задачки для тех, кто не удосуживается даже пытаться сам их решать.
Аватара пользователя
Снег Север
долгожитель
 
Сообщения: 2993
Зарегистрирован: 27.11.2007 16:14:47

Re: Задание с Массивами

Сообщение скалогрыз » 29.11.2020 06:09:34

Снег Север писал(а):Никому не интересно просто так решать школьные задачки для тех, кто не удосуживается даже пытаться сам их решать.

да ладно! не будь таким суровым!
вот решение!
Код: Выделить всё
program massiv;

var
  C : array [1..10] of integer;
  maxC : integer;
  B : integer;
  N : integer;

begin
  N := 10;
  readln(b);
  C[1] := random(N);  C[2] := random(N);  C[3] := random(N);
  C[4] := random(N);  C[5] := random(N);  C[6] := random(N);
  C[7] := random(N);  C[8] := random(N);  C[9] := random(N);
  C[10] := random(N);
  writeln(c[1],' ',  c[2],' ',  c[3],' ',  c[4],' ',  c[5],' ',  c[6],' ',
  c[7],' ',  c[8],' ',  c[9],' ',  c[10]);


  maxC:=c[1];
  if maxC < c[2] then maxC:=c[2];  if maxC < c[3] then maxC:=c[3];
  if maxC < c[4] then maxC:=c[4];  if maxC < c[5] then maxC:=c[5];
  if maxC < c[6] then maxC:=c[6];  if maxC < c[7] then maxC:=c[7];
  if maxC < c[8] then maxC:=c[8];  if maxC < c[9] then maxC:=c[9];
  if maxC < c[10] then maxC:=c[10];

  if c[1] mod 2 = 0 then c[1]:=c[1]+maxC;
  if c[2] mod 2 = 0 then c[2]:=c[2]+maxC;
  if c[3] mod 2 = 0 then c[3]:=c[3]+maxC;
  if c[4] mod 2 = 0 then c[4]:=c[4]+maxC;
  if c[5] mod 2 = 0 then c[5]:=c[5]+maxC;
  if c[6] mod 2 = 0 then c[6]:=c[6]+maxC;
  if c[7] mod 2 = 0 then c[7]:=c[7]+maxC;
  if c[8] mod 2 = 0 then c[8]:=c[8]+maxC;
  if c[9] mod 2 = 0 then c[9]:=c[9]+maxC;
  if c[10] mod 2 = 0 then c[10]:=c[10]+maxC;

  C[2]:=C[2]-b;  C[4]:=C[4]-b;  C[6]:=C[6]-b;  C[8]:=C[8]-b;  C[10]:=C[10]-b;
  writeln(c[1],' ',  c[2],' ',  c[3],' ',  c[4],' ',  c[5],' ',  c[6],' ',
  c[7],' ',  c[8],' ',  c[9],' ',  c[10]);
  readln;

end.
скалогрыз
долгожитель
 
Сообщения: 1803
Зарегистрирован: 03.09.2008 02:36:48

Re: Задание с Массивами

Сообщение Vadim » 29.11.2020 07:13:30

скалогрыз писал(а):да ладно! не будь таким суровым!

Снег Север совершенно прав. Мало того, добавлю от себя, те люди "за которых" Вы решаете (не помогаете, ибо это не помощь) их учебные задания, потом, как ни удивительно, попадут в управленцы и будут управлять нами же руководствуясь отсутствием и знаний и умений. Ибо зачем им знания, если всё как-то само собой делается. "Зачем знать географию - ведь есть извозчики"... ;-)
Vadim
долгожитель
 
Сообщения: 4112
Зарегистрирован: 05.10.2006 08:52:59
Откуда: Красноярск

Re: Задание с Массивами

Сообщение java73 » 30.11.2020 09:36:15

скалогрыз писал(а):да ладно! не будь таким суровым!
вот решение!

не лень было? )))))))))))))
java73
постоялец
 
Сообщения: 257
Зарегистрирован: 21.11.2013 09:08:10

Re: Задание с Массивами

Сообщение xdsl » 15.02.2021 10:19:18

java73 писал(а):
скалогрыз писал(а):да ладно! не будь таким суровым!
вот решение!

не лень было? )))))))))))))

Судя по коду - это изощренное издевательство над субъектом.
Судя по субъекту - он этого не понял)
xdsl
постоялец
 
Сообщения: 131
Зарегистрирован: 15.01.2009 13:49:03


Вернуться в Помощь за вознаграждение

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

Рейтинг@Mail.ru