Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
WipMore
0 / 0 / 0
Регистрация: 22.11.2011
Сообщений: 10
1

Все элементы массива с нечетными номерами увеличить в 2 раза

29.11.2011, 15:19. Просмотров 728. Ответов 2
Метки нет (Все метки)

  • -Одномерный массив N элементов заполнить случайными значениями, вывести его на экран.
    N=22 Все элементы с нечетными номерами увеличить в 2 раза. Измененный массив вывести.
  • -Одномерный массив 8 элементов заполнить значениями с клавиатуры.
    В массиве хранятся оценки студента. Определить количество 4 и 5.
  • -Одномерный массив 12 элементов заполнить случайными положительными и отрицательными значениями.
    Сформировать второй массив, разместив в нем элементы первого массива, значения которых оканчиваются на 0.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2011, 15:19
Ответы с готовыми решениями:

Все элементы массива с нечетными номерами увеличить на 1, с четными - уменьшить на 1.
11.40.Дан массив вещественных чиселВсе элементы с нечетными номерами увеличить на 1, с четными -...

Удалить из массива все элементы с нечетными номерами
Дано целочисленный массив (N> 2). Удалить из массива все элементы с нечетными номерами (1,3,5 ...)....

Вывести на экран элементы массива в два столбика: в первый - элементы с нечетными номерами, во второй - элементы с четными номерами.
Заполнить массив различными действительными числами, случайно выбираются из указанного промежутка....

Все элементы массива, значения которых кратны 5, увеличить в 2 раза
1)N=12 Все элементы массива, значения которых кратны 5, увеличить в 2 раза. Массив вывести ...

Все элементы массива, значения которых кратны 5, увеличить в 2 раза
N=12 Все элементы массива, значения которых кратны 5, увеличить в 2 раза. Массив вывести хелп

2
WebMax 2.0
--\.founder./--
562 / 562 / 392
Регистрация: 20.10.2011
Сообщений: 867
29.11.2011, 15:32 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от WipMore Посмотреть сообщение
-Одномерный массив 8 элементов заполнить значениями с клавиатуры.
В массиве хранятся оценки студента. Определить количество 4 и 5.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
 
const n=8;
 
var
a:array [1..n] of integer;
i,x,y:integer;
 
begin
  for i:=1 to n do
     begin
     Write('Ââåäèòå ',i,'-Г© ýëåìåГ*ГІ Г¬Г*Г±Г±ГЁГўГ*: ');readln(a[i]);
     if a[i]=4 then inc(x);
     if a[i]=5 then inc(y);
     end;
writeln;
writeln('ÝëåìåГ*ГІГ» Г¬Г*Г±Г±ГЁГўГ* "ГЂ":');
   for i:=1 to n do
     write(a[i]:3);
     writeln;
writeln('Êîë-âî ÷åòâåðîê = ',x,' Êîë-âî ïÿòåðîê = ',y);
end.
Добавлено через 5 минут
Цитата Сообщение от WipMore Посмотреть сообщение
-Одномерный массив N элементов заполнить случайными значениями, вывести его на экран.
N=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
26
27
28
29
30
31
uses crt;
 
const n=22;
 
var
a:array [1..n] of integer;
i,x,y:integer;
 
begin
Writeln('Массив А:');
  for i:=1 to n do
     begin
     randomize;
     a[i]:=random(9)+1;
     write(a[i]:3);
     end;
writeln;
  for i:=1 to n do
     begin
     if odd(a[i]) then a[i]:=a[i]*2;
     end;
writeln;
Writeln('Новый массив А:');
   for i:=1 to n do
     write(a[i]:3);
     writeln;
 
end.
 
для нечетный индексов
if odd(i) then a[i]:=a[i]*2;
1
versa4e
trainspotting
1083 / 483 / 384
Регистрация: 11.11.2010
Сообщений: 773
29.11.2011, 15:39 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
const
  n=8;
type
  mas=array[1..n] of byte;
var
  a:mas;
  i,four,five:byte;
begin
  four:=0;
  five:=0;
  for i:=1 to n do
    repeat
      write('Vvedite otsenky:');
      read(a[i]);
      if not (a[i] in [2..5]) then
        writeln('Nepravilniy vvod. Razreshen vvod chisel ot 2 do 5');
      if a[i]=4 then
        inc(four);
      if a[i]=5 then
        inc(five);
    until a[i] in [2..5];
    writeln('Chetverok:',(100*four/8):0:0,'%');
    writeln('Pyaterok:',(100*five/8):0:0,'%');
end.
3.
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
const
  n=12;
type
  arr=array[1..n] of integer;
var
  z,x:arr;
  i,k:integer;
begin
  randomize;
  writeln('Ishodniy massiv Z:');
  k:=0;
  for i:=1 to n do
    begin
      z[i]:=-10+random(21);
      if z[i] mod 10=0 then
        begin
          inc(k);
          x[k]:=z[i];
        end;
      write(z[i]:4);
    end;
  writeln;
  if k=0 then
    writeln('Massiv Z ne soderzhit elementov, kot. okanch. na 0')
  else
    begin
      writeln('Massiv X:');
      for i:=1 to k do
        write(x[i]:4);
    end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2011, 15:39

Все элементы массива, значения которых кратны 5, увеличить в 2 раза
N=12 Все элементы массива, значения которых кратны 5, увеличить в 2 раза. Массив вывести

Переписать в новый целочисленный массив В все элементы исходного массива с нечетными порядковыми номерами
Дан целочисленный массив А размера N(N<15).Переписать в новый целочисленный массив В все элементы с...

Перегруппировать элементы списка, переместив все элементы с нечетными номерами в конец
Дан указатель P1 на первый элемент непустого двусвязного списка. Перегруппировать его элементы,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru