|
|||
const N =30;. var a: array[1..N] of integer;. i, k, kMax: integer;. if k > kMax then kMax := k;. writeln(kMax);const N =30; var a: array[1.. N] of integer; i, k, kMax: integer; begin for i: =1 to N do readln(A[i]); { ввод массива } k: = 1; { обрабатываем A[1] } kMax: = 1; for i: =2 to N do begin { а теперь в цикле A[2]... A[N} } if A[i] = A[i-1] then { цепочка продолжается } k: = k + 1 else k: = 1; { цепочка закончилась } if k > kMax then kMax: = k; end; writeln(kMax); end.
Еще пример задания: Дан целочисленный квадратный массив 10 х 10. Опишите на русском языке или на одном из языков программирования алгоритм вычисления суммы максимальных элементов из каждой строки. Напечатать значение этой суммы. Предполагается, что в каждой строке такой элемент единственный. Решение: 1) суть задачи: среди элементов каждой строки нужно выбрать максимальный, и все эти выбранные значения сложить 2) несложно сразу написать алгоритм на русском языке: 3) сначала напишем программу на псевдокоде:
|
|||
|