0 / 0 / 0
Регистрация: 21.10.2009
Сообщений: 17
1

Подсчитать наибольшее число одинаковых, следующих подряд чисел.

14.12.2009, 17:16. Показов 1470. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1)Заполнить массив из 10-ти значений четными числами начиная с -4.
2)Заполнить двумернный массив 5х3 случайными числами из интервала [20,100]. Наяти максимальный элемент из первых двух строчек массива.
3)Дан массив из натуральных чисел. Подсчитать наибольшее число одинаковых, следующих подряд чисел.
Зарание огромное спасибо=)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2009, 17:16
Ответы с готовыми решениями:

Подсчитать наибольшее число идущих в массиве подряд одинаковых элементов
4) Имя входного файла: z571.in Имя выходного файла: z571.out Дана целочисленная таблица A....

Целочисленный массив 1:100, подсчитать наибольшее число идущих в ней подряд одинаковых элементов
И еще одна...Упорядоченный по невозрастанию массив преобразовать в упорядоченный по...

Подсчитать наибольшее число букв «а» идущих подряд в данной последовательности
Решите пожалуйста эти задачи . Очень нужны. 1. Дана последовательность из n символов. Известно,...

Определить наибольшее число подряд идущих одинаковых элементов последовательности
Дана последовательность натуральных чисел, завершающаяся числом 0. Определите, какое наибольшее...

4
18 / 18 / 8
Регистрация: 07.11.2009
Сообщений: 118
14.12.2009, 17:22 2
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
uses
    CRT;
var
   i,j:byte;
   A:array[1..5,1..3]of integer;
   max:integer;
begin
     writeln('Массив А:');
     randomize:
     for i:=1 to 5 do
         for j:=1 to 3 do
             A[i,j]:=integer(random(100))-20;
     max:=A[1,1];
     for i:=1 to 2 do
         for j:=1 to 3 do
             if A[i,j]>max then
                               max:=A[i,j];
     for i:=1 to 5 do
         begin
              for j:=1 to 3 do
                  write(A[i,j]:4);
              writeln;
         end;
     writeln('Максимальный элемент первых двух строк равен=',max);
end.
Добавлено через 33 секунды
Это 2 задание, насчет диапазона рендома не уверен)
1
1856 / 1178 / 190
Регистрация: 27.03.2009
Сообщений: 4,564
14.12.2009, 17:25 3
1.
Pascal
1
2
3
4
5
6
7
var a:array[1..10] of integer; i:integer;
begin
for i:=1 to 10 do
if i=1 then a[i]:=-4 else a[i]:=a[i-1]+2;
for i:=1 to 10 do
write(a[i],' ');
readln;
1
Платежеспособный зверь
8956 / 4382 / 1649
Регистрация: 28.10.2009
Сообщений: 11,622
14.12.2009, 17:37 4
GFS
random(81)+20
2
0 / 0 / 0
Регистрация: 21.10.2009
Сообщений: 17
14.12.2009, 20:37  [ТС] 5
спасибо=)
0
14.12.2009, 20:37
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.12.2009, 20:37
Помогаю со студенческими работами здесь

Определить наибольшее число идущих подряд одинаковых элементов в массиве
Помогите изменить программу. Дана: Определить наибольшее число идущих подряд положительных...

Подсчитать количество одинаковых чисел массива, идущих подряд
program qwe; const n=20; var arr: array of integer; i:integer; count:byte; begin ...

Массивы. Подсчитать наибольшее число одинаковых следующих подряд чисел.
Даны натуральное число n, целые числа a1, a2, …, an. Подсчитать наибольшее число одинаковых...

Посчитать наибольшее число одинаковых идущих подряд чисел в массиве
Дан одномерный массив из 10 целых чисел подсчитать наибольшее число одинаковых идущих подряд в нем...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru