Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Получить m расстановок 8 ферзей на шахматной доске, при которых ни один из ферзей не угрожает другому https://www.cyberforum.ru/ turbo-pascal/ thread566249.html
10. Дано натуральное число m. Получить m расстановок 8 ферзей на шахматной доске, при которых ни один из ферзей не угрожает другому. Если m больше, чем общее число таких расстановок, то следует...
Строки. Вывести строку заданной длины, которая состоит из чередующихся символов Turbo Pascal
Дано чётное число N>0 и символы С1 и С2. Вывести строку длины N, которая состоит из чередующихся символов С1 и С2, начиная с С1.
Turbo Pascal Графика. Как объединить 2 проги?
например хочу сделать лплывуущий поволнам кораблик, чтобы луна уходила за горизонт а на берегу стоял домик из дымохода которого выходил дым. Они по отдельность пишутся а вместе никак
Turbo Pascal Вывести сумму цифр числа Дана строка, изображающая целое положительное число. Вывести сумму цифр этого числа. https://www.cyberforum.ru/ turbo-pascal/ thread566240.html
Turbo Pascal Двумерный массив. Вывести элементы, расположенные в строках с чётными номерами https://www.cyberforum.ru/ turbo-pascal/ thread566237.html
Дана матрица размера MхN. вывести её элементы, расположенные в строках с чётными номерами (2,4,...). Вывод элементов производить по строкам, условный оператор не использовать.
Turbo Pascal Телефонный справочник. Структура: телефон, фамилия, улица, дом, номер квартиры
Файл содержит телефонный справочник некоторого города по следующей структуре: каждая строка содержит телефон, фамилию, название улицы, номер дома,номер квартиры.Написать программу для поиска по...
Строки и файлы. Разбить строку пополам и записать в другой файл половину строки Turbo Pascal
Есть файл из символами EOI78URYETWRQE розбить строку пополам и записать в другой файл половину строки а в первом оставить только половину
Turbo Pascal Олимпиада На вход программе подаются сведения о результатах олимпиады по информатике.В первой строке сообщается количество участников N, каждая из следующих N строк имеет формат: <Фамилия> <Номер школы>... https://www.cyberforum.ru/ turbo-pascal/ thread566166.html
Turbo Pascal Программа https://www.cyberforum.ru/ turbo-pascal/ thread566151.html
На вход программе подаются сведения о сдаче экзаменов учениками 9-х классов некоторой средней школы. В первой строке сообщается количество учеников N, каждая из следующих N строк имеет формат:...
Turbo Pascal задачка На вход программы подаются сведения о номерах школ г.Воронежа, ученики которых участвовали в городской олимпиаде по информатике.В первой строке указано число n - количество школ г. Воронежа(n<100).... https://www.cyberforum.ru/ turbo-pascal/ thread566130.html
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,000
Записей в блоге: 1
20.05.2012, 11:26 0

Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю

20.05.2012, 11:26. Просмотров 1353. Ответов 3
Метки (Все метки)

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

Решение


1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var A:array[1..100] of integer;
    i,n,min:integer;
Begin
    randomize;
    min:=10;
    write('Введите размерность массива: ');readln(n);
    For i:=1 to n do 
     Begin
      A[i]:=random(50)-25;
      write(A[i]:4);
      if abs(A[i])<min then min:=A[i];
     End;
    writeln;
    writeln('Минимальный по модулю эллемент= ',min);
    readln;
End.


Вернуться к обсуждению:
Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2012, 11:26
Готовые ответы и решения:

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

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

Найти сумму модулей элементов массива, расположенных после первого элемента, равного 0
Доброго времени суток, Уважаемые формучане! Необходима помощь. Одномерные массивы В...

Найти сумму модулей элементов, расположенных после первого элемента, равного 0
помогите пожалуйста в одномерном массиве состоящнм из n уелых элементов вычеслить а) минимальный...

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