Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal ABC В одномерном числовом массиве размерности n вычислить произведение элементов 3. В одномерном числовом массиве размерности n вычислить произведение элементов, расположенных между первым и последним единичными элементами. (10 баллов) только пишите номер задачи:) https://www.cyberforum.ru/ pascalabc/ thread917878.html Из двух строк, определить в какой сумма цифр больше Pascal ABC
5. Из двух строк, определить в какой сумма цифр больше. (5 баллов)
Pascal ABC Переписать слово в обратном порядке https://www.cyberforum.ru/ pascalabc/ thread917875.html
6. Переписать слово в обратном порядке (5 баллов) 		Pascal ABC Найти минимальное по длине слово в стоке 7. Найти минимальное по длине слово в стоке. (5 баллов) https://www.cyberforum.ru/ pascalabc/ thread917872.html
Удвоить каждый пробел строки Pascal ABC
8. Удвоить каждый пробел строки. (10 баллов) 		Pascal ABC Отсортировать массив по убыванию https://www.cyberforum.ru/ pascalabc/ thread917869.html
4. Отсортировать массив по убыванию. только пишите номер задачи:)
Pascal ABC Перевод с c++ на pascal Помогите плиз перевести код с с++ на паскаль. Дан файл неопределённой длины. посчитать сколько в нём слов "end". #include <iostream> #include <conio.h> #include <cstdlib> #include <fstream>... https://www.cyberforum.ru/ pascalabc/ thread917784.html Вычисления в массиве Pascal ABC
1. Из одномерного числового массива размерности n создать новый одномерный массив по правилу: если соответствующий элемент в исходном массиве больше заданного числа, то в новом массиве...
Pascal ABC Подсчитать сумму элементов массива, расположенных после последнего отрицательного элемента 1. В одномерном числовом массиве размерности n подсчитать сумму элементов, расположенных после последнего отрицательного элемента. Владимир Пермь, Множественные задания в одной теме запрещены... https://www.cyberforum.ru/ pascalabc/ thread917750.html Pascal ABC Из двух строк, определить в какой гласных больше https://www.cyberforum.ru/ pascalabc/ thread917735.html
2. Из двух строк, определить в какой гласных больше. (5 баллов)
Pascal ABC Вычисления в массиве
Данные о температуре воздуха и количестве осадков за декаду апреля хранятся в массивах. Определить количество осадков, выпавших в виде дождя и в виде снега за эту декаду Добавлено через 1 час 36... 		Pascal ABC Определить количество слов в тексте, которые начинаются и заканчиваются гласной буквой https://www.cyberforum.ru/ pascalabc/ thread917479.html
В файле дан текст, состоящий из нескольких предложений на русском языке. Предложения заканчиваются точкой. Слова разделяются пробелами. Определить количество слов в тексте, которые начинаются и...
42 / 42 / 51
Регистрация: 04.01.2013
Сообщений: 105
05.07.2013, 05:37 0

Если соответствующий элемент в исходном массиве равен заданному, то в новом массиве соответствующий элемент -1, в противном случае - 0 - Pascal ABC - Ответ 4807787

05.07.2013, 05:37. Показов 1377. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Владимир Пермь как решение

Решение

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
27

uses
  crt;
 
var
  i, q, r: word;
  sum: integer;
  m, n: array [1..30] of smallint;
 
begin
  write('Контрольное число: ');
  readln(q);
  write('Размерность массива (<=30): ');
  readln(r);
  writeln('Исходный массив:');
  randomize;
  for i := 1 to r do
  begin
    m[i] := round(random(30) - 15);
    write(m[i], ' ');
    if m[i] = q then n[i] := 1 else n[i] := 0;
  end;
  writeln;
  writeln('Конечный массив:');
  for i := 1 to r do
    write(n[i], ' ');
  readln;
end.


Вернуться к обсуждению:
Если соответствующий элемент в исходном массиве равен заданному, то в новом массиве соответствующий элемент -1, в противном случае - 0 Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 05.07.2013, 05:37
Готовые ответы и решения:

Написать функцию, которая находит минимальное значение в массиве Y и соответствующий этому значению элемент в массиве X
Представьте себе, что проводятся опыты, результаты которых заносятся в два массива - X, Y. Написать...

Структура: Разработать программу, которая по заданному значению параметра St находит соответствующий элемент массива
Дан одномерный массив из N элементов, каждый из которых представляет собой запись вида: struct ZAP...

Вывести элемент массива, если он равен тмоу же элементу во втором массиве
Есть два масива А В. А = {1, 3, 5} B = {1, 2}. Если В == A то вивести А если нет то 0. Результат...

Метод, возвращающий true, если в массиве каждый элемент больше или равен предыдущему
Напишите метод, который принимает на вход массив целых чисел (длиной 2 и более) и возвращает true,...

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

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

Продублировать в исходном массиве элемент
На вход в первой строке подаются целые положительные числа K и N (K&lt;=N) , а во второй строке массив...

Нужно вывести max элемент из первого столбца матрицы и соответствующий ему элемент из второго столбца
Максимальный элемент я нашел. Но вот как вывести соответствующий ему элемент из второго столбца...

Определить наименьший элемент в каждой строке массива и записать его в соответствующий элемент одномерного массива
Всем привет.Помогите пожалуйста решить вот такую задачку.Буду очень-очень благодарна. Сформировать...

Найдите в массиве последний элемент, равный цифре, если цифры в массиве
Дано символьный массив. Найдите в массиве последний элемент, равный цифре, если цифры в массиве.

Каждый элемент 1 ряда матрицы разделить на соответствующий элемент второго ряда
Вот задача : Есть матрица B (m, n). Каждый елемент ее 1 ряда разделить на соответствующий елемент...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru