Free Pascal

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

Войти

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

Другие темы раздела
Free Pascal Найти сумму элементов заданной линейной таблицы https://www.cyberforum.ru/ free-pascal/ thread1644101.html Найти сумму элементов заданной линейной таблицы.	Free Pascal Получить таблицу значений функции на заданном отрезке Получить таблицу значений функции на заданном отрезке.
Free Pascal Определить вид треугольника https://www.cyberforum.ru/ free-pascal/ thread1644097.html Заданы длины сторон треугольника. Определить его вид: разносторонний, равносторонний, равнобедренный; прямоугольный, остроугольный, тупоугольный.	Free Pascal Вычислить среднее арифметическое найденных чисел в файле Написать программу, которая считывает все цифры в произвольном текстовом файле и вычисляет среднее арифметическое найденных чисел. Файл может содержать также и текстовую информацию, которая игнорируется. https://www.cyberforum.ru/ free-pascal/ thread1643350.html
Free Pascal Написать программу, которая вставляет перед каждой второй буквой во введенной фразе слог "ку-" Надо написать программу, которая вставляет перед каждой второй буквой во введенной фразе слог "ку-".	Free Pascal Добавить к каждому найденному во введенной фразе слову символ Надо написать программу, которая добавляет к каждому найденному во введенной фразе слову символ «а». Удалите все лишние пробелы между словами https://www.cyberforum.ru/ free-pascal/ thread1642664.html
Free Pascal Сформировать новый массив из элементов заданного массива, кратных 7 Добрый день, народ. Имею вот такое задание: Сформировать новый массив из элементов заданного целочисленного массива М (50), кратных 7 или содержащих в записи числа эту цифру. const n=50; type mas=array of integer; var m,m1:mas; n1,i:integer; begin for i := 1 to N do Begin writeln('Введите ',i,' элемент массива '); https://www.cyberforum.ru/ free-pascal/ thread1642502.html	Добавить два условия в процедуру z, чтобы выводились фигуры Z, каждая с середины предыдущей фигуры Free Pascal procedure str(n:integer; q:char); begin while n > 0 do begin write(q); n:= n - 1 end; end; procedure z (n,nb,ns:integer);
Free Pascal Напечатать все сведения о машинах, сумма цифр номера которых равна 10 https://www.cyberforum.ru/ free-pascal/ thread1641009.html 3. Даны сведения о владельцах автомобилей: фамилия, инициалы владельца, марка машины, номер, цвет. a. Напечатать все сведения о машинах, сумма цифр номера которых равна 10, а также подсчитать их количество. b. Упорядочить все сведения о владельцах “Волги” в алфавитном порядке фамилий владельцев.	Free Pascal Выдать на экран сведения о книгах, в названии которых более двух слов https://www.cyberforum.ru/ free-pascal/ thread1640907.html 3. Даны сведения о книгах в библиотеке: фамилия автора, название книги и год издания. a. Выдать на экран сведения о книгах, в названии которых более двух слов. b. Упорядочить все сведения о книгах с заданной фамилией автора в порядке возрастания годов изданий его книг.
Free Pascal Нужен хороший курс по Free Pascal Я новичок, и мне нужен подробный, хороший курс по Free Pascal!	Free Pascal Удалить в словах первое вхождение буквы ‘е’, если такое имеется. https://www.cyberforum.ru/ free-pascal/ thread1640673.html 3. Удалить в словах первое вхождение буквы ‘е’, если такое имеется.

ZX Spectrum-128

6811 / 4568 / 4819

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

Сообщений: 22,438

21.01.2016, 14:07

Найти первый по порядку элемент линейной таблицы, равный 1 - Free Pascal - Ответ 8649326

21.01.2016, 14:07. Показов 1151. Ответов 1

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

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

Решение

Pascal

for i:=1 to n do
 if a[i]=1 then
  begin
   k:=i;
   break;
  end;

Вернуться к обсуждению:
Найти первый по порядку элемент линейной таблицы, равный 1 Free Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

21.01.2016, 14:07

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

Найти первый по порядку элемент линейной таблицы, равный 1
Найти первый по порядку элемент линейной таблицы, равный 1.

Найти первый элемент линейной таблицы который меньше чем данное число М
Помогите надо зделать через Pascal

Найти максимальное значение матрицы, первый элемент равный максимальному уменьшить на 10
Дан двухмерный массив найти максимальное значение, первый элемент равный максимальному уменьшить на...

Определить, есть ли в линейной таблице элемент, равный 5
Составление и отладка программ. №9. Определить, есть ли в линейной таблице элемент, равный 5....

	21.01.2016, 14:07

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

21.01.2016, 14:07

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

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

Найти минимальный элемент линейной таблицы
Составление и отладка программ. №10. Найти минимальный элемент линейной таблицы.

Из матрицы удалить строку и столбец, в которых находится первый элемент, равный нулю
Из заданой матрицы A(N,N) удалить строку и столбецб в которых находится первый элемент, равно...

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

Наверх