Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Дана строка символов. Напечатать слова, которые начинаются и заканчиваются одной и той же буквой. https://www.cyberforum.ru/ pascal/ thread898207.html Доброго времени суток всем! Cам просто тему проболел и разобраться не могу, буду очень благодарен : Дана строка символов. Напечатать слова, которые начинаются и заканчиваются одной и той же буквой.	Дано целое число N (1<N<33). Вывести N первых строчных букв русского алфавита Pascal Доброго времени суток всем! Условие : Дано целое число N (1<N<33). Вывести N первых строчных букв русского алфавита.
Pascal Найти и вывести все номера четных элементов массива, стоящих на нечетных местах Найти и вывести все номера четных элементов массива, стоящих на нечетных местах. https://www.cyberforum.ru/ pascal/ thread897742.html	Pascal Напечатать данный текст большими рускими буквами дан текст с малых руских букв, за какими следует точка, напечатать этот текст большими рускими буквами. (Паскаль) https://www.cyberforum.ru/ pascal/ thread897684.html
Pascal Выдаёт ошибку. Не пойму как исправить uses crt; var a:array of shortint; k,i :integer; ...	Pascal напечатать True, если в заданном тексте буква А встречается чаще, чем буква Б https://www.cyberforum.ru/ pascal/ thread897637.html надрукувати True, якщо в заданому тексті буква А зустрічається частіше, ніж буква Б, надрукувати False в іншому випадку. (Паскаль)
Pascal Подпрограммы: в каждом столбце матрицы поменять местами максимальный и последний элементы Ввести двумерный массив вещественных чисел,преобразовать массив: в каждом столбце поменять местами максимальный и последний элементы. Вывести на экран исходный массив и преобразованный. Оформить как подпрограммы: 1. ввод двумерного массива 2. алгоритм обработки массива ( на языке Паскаль это подпрограммы типа PROCEDURE). 3. Вывод двумерного массива на экран пока не... https://www.cyberforum.ru/ pascal/ thread897628.html	Исправить ошибку "Ожидался другой тип" Pascal program z; var a:array of integer; b: array of integer; max,i,j:integer; begin max:=b; writeln('vvedite matricy'); for i:=1 to 7 do for j:=1 to 4 do read (a);
Pascal Вычислить сумму простых чисел файла https://www.cyberforum.ru/ pascal/ thread897315.html Дан текстовый файл целых чисел,организованных в одну строку.Вычислить сумму простых чисел файла. желательно с применением функции заранее спасибо:)	Pascal Сформировать одномерный массив М, состоящий только из четных элементов массива L https://www.cyberforum.ru/ pascal/ thread897239.html Решите пожалуйста задачку и желательно блок схему или алгоритм: 2. Дан одномерный массив L состоящий из 10 целых чисел.сформировать одномерный массив М, состоящий только из четных элементов массива L.
файл последовательного доступа Pascal Заполнить файл последовательного доступа f целыми числами , полученными с помощью генератора случайных чисел . Получить в файле g те компоненты файла f, которые делятся на m и не делятся на n.	Pascal код символа, введенного пользователем Написать программу ,которая выдает код символа, введенного пользователем. Программа должна завешать работу после ввода точки. https://www.cyberforum.ru/ pascal/ thread897156.html

snyp

5 / 5 / 17

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

Сообщений: 27

11.06.2013, 18:40

Вывести полученый массив и сумму с поясняющими комментариями - Pascal - Ответ 4705842

11.06.2013, 18:40. Показов 1184. Ответов 1

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

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

Решение

Pascal

var
 b : array[1..30] of integer;
 n, i, j, c, s : integer;
begin
 Readln(n);
 for i:=1 to n do
  Read(b[i]);
 s:=0;
 for i:=1 to n do
  if b[i]=0 then s:=s+i;
 for i:=1 to n do     //под словом "упорядочить я понимаю: отсортировать массив 
//по возрастанию
  for j:=i to n do    //это есть сортировка пузырьком, она меняет местами числа, 
//если впередистоящее окажется больше последующего
   if b[i]>b[j] then
    begin
     c:=b[i];
     b[i]:=b[j];
     b[j]:=c;
    end;
 for i:=1 to n do
  Write(b[i], ' ');
 Writeln;
 Writeln(s);
end.

Вернуться к обсуждению:
Вывести полученый массив и сумму с поясняющими комментариями Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

11.06.2013, 18:40

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

Необходимо вывести на экран первоначальный массив и полученый массив
Разработать алгоритм обработки двумерного массива размера NxM,заполненого целыми случайными числами...

Найти сумму кратных трем положительных элементов файла и полученый результат записать в новый файл
Создать файл из вещественных чисел и найти сумму кратных трем положительных элементов файла и...

Найти сумму элементов нечётных строк массива. Вывести сам массив и сумму
Задать элементы массива с помощью генератора случайных чисел в интервале от -5 до 10.

Найти сумму элементов чётных строк массива. Вывести сам массив и сумму
Найти сумму элементов чётных строк массива. Вывести сам массив и сумму. FRepresentation, будьте...

	11.06.2013, 18:40

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

11.06.2013, 18:40

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

В массиве размером n (1<n<30) найти сумму всех положительных элементов. Вывести на экран массив и сумму
помогите пожалуйста написать код на php. В массиве размером n (1<n<30) найти сумму всех...

Посчитать сумму столбцов двухмерного массива и вывести сумму каждого столбца в одномерный массив
Посчитать сумму столбцов двухмерного массива и вывести сумму каждого столбца в одномерный массив....

Найти сумму элементов диагонали массива. Вывести сумму в массив одномерный и min max
найти сумму элементов диагонали массива. Вывести сумму в массив одномерный и min max

Подсчитать сумму всех положительных элементов массива. На экран вывести сам массив и сумму
Здравствуйте! Помоги пожалуйста решить задачку. Дан одномерный массив А, элементы которого...

Наверх