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

Дан целочисленный массив размера N

22.06.2009, 14:06. Показов 1542. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1. Дан целочисленный массив размера N, 2<N<100. Размер массива и его элементы вводятся с клавиатуры. Увеличить каждый элемент массива на число, равное порядковому номеру элемента. Результат вывести на экран.

2. Дан целочисленный массив размера N, 2<N<100. Размер массива и его элементы вводятся с клавиатуры. Найти количество раз, которое в массиве появляется наиболее часто встречаемый элемент. Результат вывести на экран.

3. С клавиатуры вводится строка длиной N, 2<N<100. Изменить порядок следования букв в словах на противоположный. Например, строка 'Hello, world!!!' должна быть преобразована в 'olleH, dlroW!!!'. Результат вывести на экран.
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.06.2009, 14:06
Ответы с готовыми решениями:

Дан целочисленный массив размера N. Проверить, чередуются ли в нем четные и нечетные числа.
Ребята, всё таже история, погите кто чем сможет... Array26. Дан целочисленный массив размера N....

Дан целочисленный массив А размера 10. Вывести номер первого и последнего из тех его элементов А[i]
Дан целочисленный массив А размера 10. Вывести номер первого и последнего из тех его элементов А,...

Дан целочисленный массив размера N. Написать метод нахождения количества его одинаковых элементов. Результат записать в
помогите. срочно

Дан целочисленный массив размера*N. Проверить, чередуются ли в нем четные и нечетные числа. Если чередуются, то вывести*0, если нет, то вывести поряд
Дан целочисленный массив размера*N. Проверить, чередуются ли в нем четные и нечетные числа. Если...

1
2923 / 844 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
22.06.2009, 14:47 2
Лучший ответ Сообщение было отмечено sergyk как решение

Решение

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 a:array[1..100] of integer;
     i,n:integer;
begin
 clrscr;
 writeln('n ');
 readln(n);
 for i:=1 to n do
  begin
  writeln('Vvedite ',i,' element ');
  readln(a[i]);
  end;
 
for i:=1 to n do 
 write(a[i],' ');
 writeln;
 
 writeln('Poluchenniy massiv  ');
 for i:=1 to n do
  begin
   a[i]:=a[i]+i;
   write(a[i],' ');
  end;
 readln;
end.
Добавлено через 11 минут 42 секунды
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
26
27
28
29
30
31
32
33
uses crt;
var a:array[1..100] of integer;
     i,n,j,ind,sum,max:integer;
begin
 clrscr;
 writeln('n ');
 readln(n);
 for i:=1 to n do
  begin
  writeln('Vvedite ',i,' element ');
  readln(a[i]);
  end;
 
for i:=1 to n do 
 write(a[i],' ');
 writeln;
 
ind:=0; 
max:=0;
for i:=1 to n do
 begin
  sum:=0;
   for j:=1 to n do
    if a[i]=a[j] then sum:=sum+1;
 
   if sum>max then begin ind:=i; max:=sum; end;
 end;
 end;
 
writeln;
writeln('Элемент ',a[ind],' встречается в массиве ', max,' раз');
 readln;
end.
1
22.06.2009, 14:47
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2009, 14:47
Помогаю со студенческими работами здесь

Сформировать и вывести целочисленный массив размера N
1. Даны целые числа N&gt;2, A, B. Сформировать и вывести целочисленный массив размера N, первый...

Сформировать и вывести целочисленный массив размера n
Program Array6; Uses crt; Var c: array of integer; a,b,d,i,j,k,n,s:integer; Begin ...

Дан целочисленный массив b
Дан целочисленный массив b . Найдите сумму элементов его правой диагонали и произведение элементов ...

Дан целочисленный массив Zn
Дан целочисленный массив Zn. Сформировать массив Yn, каждый элемент которого определяется по...

Дан целочисленный массив
Дан целочисленный массив B(40). Получить наименьший элемент последователь-ности {b1+b2; b3+b4; ...;...

Сформировать и вывести целочисленный массив размера N, состоящий из 1
Дано целое число N (&gt; 0). Сформировать и вывести целочисленный массив размера N, содержащий степени...


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

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

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