Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Antihaos
0 / 0 / 0
Регистрация: 05.10.2014
Сообщений: 37
1

Записать в массив Z подряд десять первых не нулевых вещественных элементов Y(N), N<=40

15.10.2014, 18:13. Просмотров 834. Ответов 1
Метки нет (Все метки)

Здравствуйте.
Помогите написать программу.
"Записать в массив Z подряд десять первых не нулевых вещественных элементов Y(N), N<=40."
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.10.2014, 18:13
Ответы с готовыми решениями:

Массив.Узнать есть ли в последовательности C1..Cn несколько нулевых элементов подряд
1.Даны целые числа с1 , ... , с10. Имеются ли в последовательности с1 , ... , с10 : а)два идущих...

Дан массив из N вещественных чисел. Определить количество нулевых элементов
Дан массив из N вещественных чисел. Определить количество нулевых элементов. Если таких значений...

Одномерный массив, определить начало и конец самой длинной послед. подряд идущих нулевых элементов.
В одномерный массив заданного размера N (от 2 до 30) ввести произвольные натуральные числа,...

Массив вещественных чисел: в 8-ой элемент вставить сумму первых 10 элементов
В линейном массиве вещественных чисел на 8 место вставить элемент равный сумме первых 10 элементов...

дан двумерный массив размером m*n. Вычислить количество нулевых элементов в каждой строке и результаты записать в массив размера M.
дан двумерный массив размером m*n. Вычислить количество нулевых элементов в каждой строке и...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4253 / 3084 / 3807
Регистрация: 05.06.2014
Сообщений: 15,488
15.10.2014, 18:33 2
Лучший ответ Сообщение было отмечено Antihaos как решение

Решение

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
var
  x,y:array[1..100] of real;
  i,j: integer;
  n: integer;
begin
  randomize;
  writeln('Введите количество элементов массива: ');
  readln(n);
  for i:=1 to n do
    x[i]:=random(n)-n div 2;
  writeln('Исходный массив: ');
  for i:=1 to n do
    write(x[i]:8:2);
  writeln;
  for i:=1 to n do
    if x[i]<>0 then
      begin
        inc(j);
        y[j]:=x[i];
      end;
  n:=j;
  if n>10 then
    n:=10;
  writeln('Сформированный массив: ');
  for i:=1 to n do
    write(y[i]:8:2);
  readln;
end.
Взято отсюда и чуть переделано.
Переписать положительные элементы массива Х (100) подряд в массив Y
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.10.2014, 18:33

Записать в массив У 5 первых положительных элементов массива Х
Записать в массив У 5 первых положительных элементов массива Х

Составить программу, которая подсчитывает, наибольшее число идущих подряд в нём нулевых элементов
Дан одномерный массив А, состоящий из N целых чисел. Составить программу, которая подсчитывает,...

Определить в матрице длину самой длинной цепочки подряд стоящих нулевых элементов по горизонтали
Матрица A состоит из нулей и единиц. Какова в ней длина самой длинной цепочки подряд стоящих...


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

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

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