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

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

30.01.2014, 22:48. Показов 1468. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан одномерный массив, содержащий вещественные числа. Для каждого элемента массива напечатать число отрицательных элементов, идущих за ним
Помогите решить задачку =)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.01.2014, 22:48
Ответы с готовыми решениями:

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

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

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

Дан одномерный массив. Выяснить имеются ли в данном массиве 2 идущих подряд отрицательных элемента.
дан одномерный массив из n элементов выяснить имеются ли в данном массиве 2 идущих подряд...

3
351 / 344 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
30.01.2014, 22:57 2
а можно пример?
1
0 / 0 / 0
Регистрация: 18.05.2013
Сообщений: 25
30.01.2014, 23:01  [ТС] 3
я давно не делал нечего на паскале поэтому даже не знаю=)
0
351 / 344 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
30.01.2014, 23:03 4
Лучший ответ Сообщение было отмечено Kiryshka как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program Kiryshka;
{$APPTYPE CONSOLE}
uses SysUtils;
var mas:array [1..20] of Integer;
    q,i,n:Integer;
begin
  q:=0;
  Write('Enter size of array = ');Readln(n);
  for i:=1 to n do
    begin
      Write('Array [',i,'] = ');Readln(mas[i]);
    end;
  Writeln;
  Writeln('element[count minus elment]');
  for i:=1 to n do
    begin
      if (mas[i]>0) then Write(' ');
      Writeln(mas[i],'[',q,']');
      if (mas[i]<0) then Inc(q);
    end;
Writeln('The End.');
Readln;
end.
Добавлено через 23 секунды
наверное правельно =)

Добавлено через 13 секунд
возможно не понял задание
1
30.01.2014, 23:03
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.01.2014, 23:03
Помогаю со студенческими работами здесь

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

Дан файл, содержащий вещественные числа. Найти минимальное число
Дан файл, содержащий вещественные числа. Найти минимальное число.

Дан одномерный массив. Найти сумму индексов отрицательных элементов массива
дан одномерный массивю Найти сумму индексов отрицательных элементов массива

Создать одномерный массив, содержащий среднее арифметическое элементов кратных 5 для каждого столбца
Задание: 1.Дан двумерный массив целых чисел. 2.Создать одномерный массив, содержащий среднее...


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

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

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