Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди А1..А10 Даны целые числа А1..А10(рандомные) и целочисленная матрица т-го порядка. Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди А1..А10... я тут пробовал сделать... но она что-то не то зануляет... program aaa; uses crt; type mas=array of integer; massiv=array of integer; procedure proc (var m:mas); var i,j:integer; begin ... https://www.cyberforum.ru/ pascal/ thread734922.html Составить программу для нахождения суммы Pascal
помогите,пожалуйста :-[
Pascal перевести в pascal помогите пожалуйста перевести в паскаль следующее: #include <iostream> using namespace std; int main() { int n = 4; int summ = 0; int sum = 0,s = 0; https://www.cyberforum.ru/ pascal/ thread734774.html Pascal Задача. Матрицы Задана действительная матрица А{ai,j} , где i,j = 1,2,3,...,n. Нужно составить программу формирования вектора B = (b1,b2,b3,...,bn) , элементы которой определяются по формуле : n bj = Ʃ ai,j ; При ai,j < или = 0 i=1 Исходные данные : 1. значение переменной n=5 https://www.cyberforum.ru/ pascal/ thread734674.html
Сортировка без изменения порядка Pascal
Нужен алгоритм сортировки на паскале, который позволяет отсортировать линейный массив так, чтоб отрицательные были слева, положительные справа. Мой алгоритм почему-то не работает: i:=1; repeat if (B>=0) then begin buf:=B; for j:=i to n-1 do B:=B; B:=buf; for m:=1 to n do write(B,'# ');
Pascal Элементы главной диагонали заменить на элементы побочной диагонали. Элементы побочной диагонали сделать равными нулю, кроме элемента, на пересечении 4.1. Дана матрица А размера n*n, где n<=15. Элементы матрицы вычисляются по формуле a(i,j)= i*j*sin(0.5*i*j). Элементы главной диагонали заменить на элементы побочной диагонали. Элементы побоч. диагонали сделать равными нулю, кроме элемента, на пересечении диагоналей. 4.2. Оформить преобразование из п. 4.1 в виде функции или процедуры (на самостоятельный выбор). Вывести на экран исходную и... https://www.cyberforum.ru/ pascal/ thread734442.html
Pascal Даны две матрицы: А и В, найти их сумму Помогите решить задачи по информатике. Заранее спасибо! 2. Даны две матрицы: А и В, найти их сумму. https://www.cyberforum.ru/ pascal/ thread734372.html Pascal Вычислить сумму ряда
Помогите решить задачи по информатике. Заранее спасибо!
Pascal Определить произведение суммы нечетных чисел и суммы чисел из диапазона от -30 до -10 Последовательно вводятся действительные отрицательные числа,пока не будет введено положительное число.Определить произведение суммы нечетных чисел и суммы чисел из диапазонаот -30 до -10 https://www.cyberforum.ru/ pascal/ thread734368.html Pascal Найти среднее значение всех нечетных элементов массива Помогите решить задачи по информатике. Заранее спасибо! 1. Дан вектор, состоящий из п элементов, найти среднее значение всех нечетных элементов массива. https://www.cyberforum.ru/ pascal/ thread734360.html
Pascal В матрице с числами типа BYTE инвертировать каждое число. Например 0116=> 8016, 1116=>8816, 5516=>AA16 и т.д
В матрице с числами типа BYTE инвертировать каждое число. Например 0116=> 8016, 1116=>8816, 5516=>AA16 и т.д.
Pascal Текстовые файлы. Работа с текстовыми строчками https://www.cyberforum.ru/ pascal/ thread734323.html
Задан текстовый файл, который состоит из одной строчки. Длина строчки неограничена. Создать новый текстовый файл , строчками которого являются подстрочки входящего файла, которые разделяются запятой.
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,590
Записей в блоге: 1
18.12.2012, 13:42 0

Задача по циклам. Ввести с клавиатуры последовательность из N целых чисел - Pascal - Ответ 3876849

18.12.2012, 13:42. Показов 5921. Ответов 2
Метки (Все метки)

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

Решение

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
Var m,n,imax,imin,i,max,min:integer;
Begin
    write('Введите n: ');readln(n);
    write('1-ое число: ');readln(m);
    imax:=1;imin:=1;
    max:=m;min:=m;
    For i:=2 to n do
    Begin
      write(i,'-ое число: ');readln(m);
      if m>max then
      Begin
        max:=m;
        imax:=i;
      End;
      if m<min then
      Begin
        min:=m;
        imin:=i;
      End;
    End;
    writeln('Max = ',max,' его индекс = ',imax);
    writeln('Min = ',min,' его индекс = ',imin);
    if imax>imin then write('Min встречается первым')
     else write('Max встречается первым');
    readln;
End.


Вернуться к обсуждению:
Задача по циклам. Ввести с клавиатуры последовательность из N целых чисел Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2012, 13:42
Готовые ответы и решения:

Ввести с клавиатуры 10 целых чисел и найти среди них количество нулей и сумму положительных
Нужно ввести с клавиатуры 10 целых чисел и найти среди них а) количество нулей б) сумму...

С клавиатуры ввести 10 целых чисел и вывести в строчку все числа большие 5
1.С клавиатуры ввести 10 целых чисел и вывести в строчку все числа большие 5

Ввести с клавиатуры массив А из 11 целых чисел. Из этого массива образовать массив В
Ввести с клавиатуры массив А из 11 целых чисел. Из этого массива образовать массив В, у которого B...

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

2
18.12.2012, 13:42
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2012, 13:42
Помогаю со студенческими работами здесь

Ввести последовательность из 9 чисел клавиатуры найти количество чисел значения которых равны 15 или 0
Помогите написать программу ввести последовательность из 9 чисел клавиатуры найти количество...

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

Предложите пользователю ввести с клавиатуры последовательность положительных чисел
Помогите решить задачу к завтршнему дню( 1. Предложите пользователю ввести с клавиатуры...

Ввести с клавиатуры 10 целых чисел и распечатать их в одну строку
Ввести с клавиатуры 10 целых чисел и распечатать их в одну строку. При печати пропускать числа,...

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