Поиск

Полнотекстовый поиск:
Где искать:
везде
только в названии
только в тексте
Выводить:
описание
слова в тексте
только заголовок

Рекомендуем ознакомиться

'Основная образовательная программа'
В соответствии с направленностью образовательных программ, указанных в лицензии на право реализации образовательной деятельности муниципальное бюджетн...полностью>>
'Документ'
Алматинский технологический университет при поддержке Министерства образования и науки РК и Международных партнеров - ведущих вузов Европы (Манчестер ...полностью>>
'Документ'
Каждый язык по-своему членит мир, имеет свой способ его концептуализации. У каждого народа, каждой нации есть свои собственные представления об окружа...полностью>>
'Документ'
Минимальная продолжительность лечения – 1 неделя, для получения заметного эффекта и стойкого результата рекомендуется продолжительность от 2 недель и ...полностью>>

Главная > Документ

Сохрани ссылку в одной из сетей:
Информация о документе
Дата добавления:
Размер:
Доступные форматы для скачивания:

© К. Поляков, 2009-2016

Ответы на задачи С2:

  1. Выделяем целочисленные переменные i1 и Sum; в i1 будем хранить номер первого в паре выбранных соседних элементов, а в Sum – их сумму. В i1 записываем начальное значение 1, а в Sum – сумму первых двух элементов. В цикле рассматриваем все элементы массива со второго до N-1, если сумма текущего элемента и следующего за ним больше Sum, то запоминаем эту сумму в переменной Sum, а номер текущего элемента – в i1.

const N=30;

var A:array[1..N] of integer;

i, i1, Sum: integer;

begin

for i:=1 to N do readln(A[i]);

i1 := 1;

Sum := A[1] + A[2];

for i:=2 to N-1 do

if A[i]+ A[i+1] > Sum then begin

i1 := i;

Sum := A[i] + A[i+1]

end;

writeln(i1)

end.

  1. Выделяем целочисленные переменные k и max; в k будем хранить количество элементов, равных максимальному, а в max – значение максимального элемента. В k записываем начальное значение 1, а в max – значение первого элемента. В цикле рассматриваем все элементы массива со второго до последнего. Если текущий элемент равен переменной max, то увеличиваем счетчик k. Если текущий элемент больше max, то нашли новый максимальный элемент, запоминаем его значение в переменной max, а в счетчик k записываем единицу. В конце цикла в k записано количество элементов, равных максимальному.

const N=30;

var a:array[1..N] of integer;

max, k, i: integer;

begin

for i:=1 to N do readln(A[i]);

k:=1;

max:=a[1];

for i:=2 to N do begin

if a[i]=max then k:=k+1;

if a[i]>max then begin

max:=a[i];

k:=1

end

end;

writeln(k)

end.

  1. Введем целые переменные Sum, Max и k. В Sum будем хранить сумму трех последовательных элементов, начиная с текущего, а в Max – максимальную (на данный момент) из этих сумм, а в k – номер первого элемента в цепочке с максимальной суммой. Сначала запишем в Sum и в Max сумму первых трех элементов, а в переменную k – единицу. В цикле рассматриваем все элементы массива со второго до N-2. Для получения очередной суммы вычитаем из Sum предыдущий элемент и добавляем элемент, который следует за текущим через один (можно также просто сложить текущий элемент и два следующих). Сравниваем Sum со значением переменной Max; если Sum больше, то заносим это значение в переменную Max и запоминаем номер текущего элемента в переменной k. По окончании работы алгоритма переменная Max содержит максимальную сумму трех подряд идущих элементов массива, а переменная k указывает на начало цепочки, которая состоит из элементов с номерами k, k+1 и k+2.

const N=30;

var a:array[1..N] of integer;

Max, Sum, i, k: integer;

begin

for i:=1 to N do readln(A[i]);

Sum:=a[1]+a[2]+a[3];

Max:=Sum; k:=1;

for i:=2 to N-2 do begin

Sum:=Sum-a[i-1]+a[i+2]; { или Sum:=a[i]+a[i+1]+a[i+2];}

if Sum >Max then begin

Max:=Sum;

k:=i

end

end;

for i:=k to k+2 do

writeln('A[',i,']=',a[i])

end.

  1. Введем переменные Min (минимальная сумма элементов строки), iMin (номер строки с минимальной суммой) и Sum (сумма элементов текущей строки). Сначала в переменную iMin записываем 1, а в переменную Min – сумму элементов первой строки. Затем в цикле рассматриваем все строки, для каждой строки считаем сумму элементов и, если эта сумма меньше значения Min, записываем сумму в Min, а в iMin – номер текущей строки. В конце работы цикла в переменной Min будет находиться минимальная сумма элементов строки, а в iMin – номер этой строки.

const N=10; M=20;

var a:array[1..N,1..M] of integer;

Min, Sum, iMin, i, k: integer;

begin

{ ввод матрицы N на N }

Sum := 0;

for k:=1 to M do Sum := Sum + a[1,k];

Min := Sum;

iMin := 1;

for i:=2 to N do begin

Sum := 0;

for k:=1 to M do Sum := Sum + a[i,k];

if Sum < Min then begin

Min := Sum;

iMin := i

end

end;

writeln('Строка ', iMin, ' сумма ', Min )

end.

  1. Введем переменные Max (значение максимального элемента), iMax (номер строки, в которой находится максимальный элемент), Sum (сумма элементов той строки, где находится максимальный элемент). Сначала определяем максимальный элемент в матрице: в переменную Max записываем значение A[1,1], а в iMax – единицу (пока считаем, что максимальный элемент стоит в первой строке); затем в двойном цикле проходим все элементы матрицы, если очередной элемент больше Max, запоминаем его значение в Max, а номер строки – в iMax. После этого находим сумму элементов строки с номером iMax: в переменную Sum записываем 0, в цикле проходим все элементы этой строки, добавляя текущий элемент к Sum. Ответ находится в переменной Sum.

const N=10;

var A:array[1..N,1..N] of integer;

Max, Sum, iMax, i, k: integer;

begin

{ ввод матрицы N на N }



Похожие документы:

  1. Ответы на тренировочные задания (1)

    Документ
    Ответы на тренировочные задания Часть 1 (А) Типзадания №вариантазадания Ответы 1 2 3 4 А 1  2  3  4  5  6  7  8  9  10  11  12 ... прежде всего рабочая сила С2 На скорость и направления ... как науки 2) Основные задачи экономической науки 3) Предмет ...
  2. Задачи изучения дисциплины 5 4 Перечень дисциплин, усвоение которых необходимо для изучения данной дисциплины: 6

    Методические указания
    ... При решении задач необходимо полностью приводить ход решения. Ответ на задачу пишется отдельной ... модели): y = (x, С0, С1, С2, … , Сm) =, (4.7) где С0, С1, С2, … , Сm – неизвестные ... линейной задачей МНК. Наилучшими значениями параметров С0, С1, С2, … , Сm ...
  3. Ответы на все тесты и решение заданий необходимо отправить на e-mail

    Тесты
    ... для 10-11 класса Ответы на все тесты и решение ... 18 19 20 a b c d e Задачи A 1 Вычислите сумму чисел х и у, при х ... ячеек A2:С2 соответствовала рисунку? B 3 На предприятии работают ... 100 7 + x = 2005. Ответ запишите в шестнадцатеричной системе (основание системы ...
  4. ... и т д.), затем ответ к нему. На задание С1 дайте краткий свободный ответ, а на задания С2-С6 полный ...

    Документ
    ... дайте краткий свободный ответ, а на задания С2—С6 — полный развернутый ответ Для ответов на задания этой ... схему решения задачи. Признаки наследуются независимо. ЧАСТЬ 3 Для ответов на задания этой части ...
  5. Задачи механика кинематика Примеры решения задач Радиус-вектор частицы изменяется со временем по закону = t 3

    Решение
    ... с; a) б) б) для полного ускорения из условия задачи получим м/с2 м/с2. Ответ: t0 = 0,87 с, W = 15 м/с². ... интенсивность? (а) b = (0/2n)(m+0,5) (m = 1, 2, 3...); б) b = (0/2n)m (m = 1,2,3...)) 4  .17. На дифракционную решетку нормально падает пучок ...

Другие похожие документы..