Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Вывести индексы тех элементов динамического двумерного массива,значения которых кратны двум https://www.cyberforum.ru/ turbo-pascal/ thread599791.html Вывести индексы тех элементов динамического двумерного массива,значения которых кратны двум	Turbo Pascal Заменить нулями элементы матрицы Заменить нулями элементы матрицы размером (n*m), у которых сумма индексов нечетнаяи не превосходит заданного числа K. Значение n и m задает пользователь!
Turbo Pascal В динамическом массиве переставить максимальный и минимальный элемент В динамическом массиве переставить максимальный и минимальный элемент! https://www.cyberforum.ru/ turbo-pascal/ thread599788.html	Turbo Pascal Дана строка.Определить количество слов, начинающихся на заданную букву.Вывести эти слова https://www.cyberforum.ru/ turbo-pascal/ thread599787.html Дана строка.Определить количество слов, начинающихся на заданную букву.Вывести эти слова Добавлено через 6 минут я уже нашла!)
Turbo Pascal Одномерный массив Найти номера элементов, оканчивающиеся цифрой 0 Дан массив целых чисел. Найти номера элементов, оканчивающиеся цифрой 0 (известно, что такие элементы в массиве есть).	Turbo Pascal Определить номера строк матрицы, в которых хотя бы один элемент равен С, и элементы этих строк удвоить https://www.cyberforum.ru/ turbo-pascal/ thread599785.html Определить номера строк матрицы,в которых хотя бы один элемент равен С,и элементы этих строк удвоить
Turbo Pascal Найти значение суммы элементов n-ой строки массива https://www.cyberforum.ru/ turbo-pascal/ thread599773.html Дан двумерный вещественный массив размерностью 10 на 10. Написать процедуру которая возвращает значение суммы элементов n- ой строки массива(число n ? выбирается пользователем) Помогите пожалуйста!!!!	Текстовые файлы. Результаты соревнований по бегу записаны в текстовом файле Turbo Pascal Результаты соревнований по бегу записаны в текстовом файле в формате: <Номер участника><Фамилия><Имя><Минуты>: <Секунды><Сотые доли> Выведите в файл информацию о победителях соревнований (три призовых места) в формате: <Номер места><Время в секундах><Фамилия><Имя><Номер участника>. При этом, если несколько участников пробежали дистанцию за одно и то же время, то они занимают одно и то же время
Turbo Pascal Операции с файлами. Запишите во второй файл все строки первого файла, начинающиеся с данного слова https://www.cyberforum.ru/ turbo-pascal/ thread599749.html 1. Создайте текстовый файл. Запишите во второй файл все строки первого файла, начинающиеся с данного слова.	Turbo Pascal Ветвящиеся алгоритмы на паскале Помогите составить программы: http://s019.***********/i638/1206/1b/b6c103a39569.jpg https://www.cyberforum.ru/ turbo-pascal/ thread599748.html
Turbo Pascal подскажите почему ошибка ожидался оператор program TypFile; uses Crt; type Stud=record group:string; fio:string; mat,fiz,his:byte; end; string70=string; var	Turbo Pascal Заполнить файл students.txt сведениями о 5-ти студентах (Ф.И.О., дата рождения, адрес, курс и группа) https://www.cyberforum.ru/ turbo-pascal/ thread599727.html Заполнить файл students.txt сведениями о 5-ти студентах (Ф.И.О., дата рождения, адрес, курс и группа). Написать программу, которая осуществляет поиск студента по фамилии в файле students.txt и выдаёт соответствующую информацию о студенте (дата рождения, адрес, курс и группа). program pr79; Uses Crt; procedure WriteStudents; const NumStudents = 5; type bio = record ...

Lemur8063

12 / 8 / 11

Регистрация: 18.12.2012

Сообщений: 42

27.04.2013, 23:44

Найти номер последнего отрицательного элемента в одномерном динамическом массиве - Turbo Pascal - Ответ 4481207

27.04.2013, 23:44. Показов 1656. Ответов 1

Метки (Все метки)

Сообщение было отмечено GonArchy как решение

Решение

Pascal

uses
  Crt;
const
  N = 10;
var
  a: array[1..N] of integer;
  i,NumZ: integer;
begin
  ClrScr;
  Randomize;
  NumZ := -1;
  WriteLn('???????? ??????:');
  for i := 1 to N do
  begin
    a[i] := Random(8) - 4;
    if a[i] < 0 then
      NumZ := i;
    Write(a[i], ' ')
  end;
  if NumZ = -1 then
    WriteLn('No')
  else
    WriteLn('Result: ', NumZ);
  ReadLn
end.

Вернуться к обсуждению:
Найти номер последнего отрицательного элемента в одномерном динамическом массиве Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

27.04.2013, 23:44

Готовые ответы и решения:

В целочисленном массиве найти номер последнего отрицательного элемента
В целочисленном массиве найти номер последнего отрицательного элемента. Удалить этот элемент из...

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

Найти номер последнего отрицательного элемента
2)найти номер последнего отрицательного элемента.

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

	27.04.2013, 23:44

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

27.04.2013, 23:44

Помогаю со студенческими работами здесь

В заданном одномерном массиве определить номер последнего отрицательного элемента
массив любой.....что - то не получается....

В векторе (одномерном массиве) найти: разность первого положительного и последнего отрицательного элемента
В заданном векторе (одномерном массиве) найти: разность первого положительного и последнего...

Найти номер первого отрицательного элемента в одномерном массиве деленного на 5 с остатком 2
найти номер первого отрицательного элемента в одномерном масиве деленного на 5 с остатком 2. Все...

В заданном одномерном массиве чисел из 8 элементов определить и вывести номер последнего отрицательного элемента
Написать программу. В заданном одномерном массиве чисел из 8 элементов определить и вывести номер...

Наверх