Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal вычислить суммы элементов строк, номера которых не являются элементами заданного целочисленного вектора а)сформировать из строк матрицы B матрицу C, расположив строки так, чтобы кол-во отрицательных элементов в строке возрастало с увеличением ее порядкового номера. б)в матрице С вычислить суммы элементов строк, номера которых не являются элементами заданного целочисленного вектора очень нужно решение этого задания, помогите, если приходилось решать подобные задания, понимаю что оно... https://www.cyberforum.ru/ pascal/ thread75126.html	графический режим Pascal 15. Ввести произвольный строку с клавиатуры. Используя переменную TextAttr вывести введен строку посимвольно яркими символами на черном фоне.
Pascal Произведение элементов одномерного массива https://www.cyberforum.ru/ pascal/ thread75121.html Дано type Vector = array of integer; Написать рекурсивную программу, вычисляющую произведение элементов массива Заранее большое спасибо!!!	Pascal Какие ошибки в написании программы могут быть? https://www.cyberforum.ru/ pascal/ thread75117.html Задание: Даны действительные числа а1,...,а16. Получить min(a1a9,a2a10,...,a8*a16). Куда тут нужно вставить min и какое значение ему присвоить, чёт понять не могу, может и в теле программы проблема. Help please. Var arr:array of integer; Begin ClrScr; for i:=1 to n do begin write('введите a:');
Pascal Модуль CRT Написать программу, которая выводит на экран "пульсирующее" цветное окно, ограниченное рамкой. При нажатии на какую нибудь клавишуцвет окна изменяется случайным образом. вот как бы построение рамки... но как сделать чтобы при нажатии изменялся цвет я незнаю =) uses crt; const A=#218; B=#196; C=#191; D=#179; E=#192; F=#217; var x1,y1,x2,y2,fon,i:byte; begin TextBackGround(black);...	Pascal Вывести вторую половину числа(палиндом) function sec(n:longint):integer; var s2,sl,sll:string; erro:integer; n2:word; i,j,d:byte; begin str(n,s2); sl:=''; sll:=''; if ts(N) mod 2=1 then https://www.cyberforum.ru/ pascal/ thread75108.html
Pascal работа со строками и записями Привет народ!!очень нужна ваша помощь в составлении кода программы (точнее основных частей) по таким вопросам (у меня не оч получается пока что то): Работа со строками: 1.Удалить из заданного текста все пробелы, подсчитать длину получившегося текста и число удаленных пробелов. Работа с записями: Составить список, содержащий сведения об N студентах. Для каждого учащегося указать: - фамилия; ... https://www.cyberforum.ru/ pascal/ thread75106.html	Pascal Pascal В матрице целых чисел, размерности N*M определить и вывести повторяющиеся элементы, указав их кратность.
Pascal удалить слова, содержащие хотя бы 4 различные буквы https://www.cyberforum.ru/ pascal/ thread75095.html Разделитель — один из символов « ,.;:!?"'» (начиная с пробела и заканчивая апострофом). Буква — любой символ, отличный от разделителя. Слово — непустая последовательность букв, ограниченная с каждой стороны разделителем или концом строки. Например, в строке «x9i23!слово, ,» два слова — «x9i23» и «слово». Исходная строка вводится с клавиатуры, изменённая строка выводится на экран. Если в...	Pascal Строки 1) Дан строка S. Известно, что в строке есть хотябы одна запятая и одна точка с запятой. Выяснить, каких символов в нём больше - запятых или точек с запятыми . (Не исключается возможность равенства) 2) Задана строка символов. Извлечь из неё все группы букв вида "abcd". Добавлено через 46 минут .. https://www.cyberforum.ru/ pascal/ thread75094.html
Pascal Посчитать сколько букв.... Помогите с задачей Посчитать сколько букв "а" есть в первых трех словах	Pascal Запись и чтение матрицы из текстового файла Ввести данные из клавиатуры в двумерный массив, записать данные из массива в файл(с использованием процедуры) входные дани- числа целого типа. Считать данные из файла и сортировать элементы в каждой строке в порядке роста, вывести сформированный массив в файл. Массив (12х5). Помогите решить эту задачу, или хотябы подскажите как записать массив используя процедуру. Добавлено через 21 час 41... https://www.cyberforum.ru/ pascal/ thread75090.html

Inadequate

Retired

7727 / 2559 / 671

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

Сообщений: 5,100

16.12.2009, 07:34

Составьте программу вычисления суммы тех элементов одномерного массива A(N), что расположены перед первым нулевым элементом данного массива. - Pascal - Ответ 418569

16.12.2009, 07:34. Показов 2311. Ответов 1

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

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

Решение

Pascal

uses
  crt;
const
  max=10;
var
  a:array[1..max]of integer;
  i,tempi,summ:integer;
  fl:boolean;
begin
  clrscr;
  summ:=0;
  fl:=true;
  tempi:=-1;
  {çàäàåì âûâîäèì ñ÷èòàåì}
  writeln('Èñõîäíûé ìàññèâ:');
  write('[ ');
  for i:=1 to max do
  begin
    a[i]:=random(8)-4;
    if (a[i]=0) and fl then
    begin
      fl:=false;
      tempi:=i
    end;
    write(a[i],' ')
  end;
  writeln(']');
  for i:=1 to tempi do
    inc(summ,a[i]);
  writeln('Ñóììà: ',summ)
end.

Вернуться к обсуждению:
Составьте программу вычисления суммы тех элементов одномерного массива A(N), что расположены перед первым нулевым элементом данного массива. Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

16.12.2009, 07:34

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

Массив: Вычислить суммы тех элементов массива A(N), что расположены перед нулевым элементом данного массива.
Составьте программу,вычисления суммы тех элементов одномерного массива A(N), что расположены перед...

Вычисление суммы тех элементов одномерного массива, что расположены перед первым нулевым элементом
2. Составьте программу вычисления суммы тех элементов одномерного массива А(N), что расположены...

Массив: Вычислить суммы тех элементов массива A(N), что расположены перед нулевым элементом данного массива.
Вычислить суммы тех элементов массива A(N), что расположены перед нулевым элементом данного массива.

Составьте программу вычисления суммы тех элементов одномерного массива A(N), что одноврменно встречаются в массиве B(N).
Составьте программу вычисления суммы тех элементов одномерного массива A(N), что одноврменно...

	16.12.2009, 07:34

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

16.12.2009, 07:34

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

Найти НОД элементов массива, что расположены перед последним нулевым элементом
Составьте программу вычисления наибольшего общего делителя тех элементов целочисленного массива...

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

Составьте программу вычисления суммы тех положительных элементов массива A(Q, Q), что стоят в строках, не содержащих нулевых элементов
Составьте программу вычисления суммы тех положительных элементов массива A(Q, Q), что стоят в...

Составьте программу вычисления суммы элементов одномерного массива
Составьте программу вычисления суммы элементов одномерного массива A(N), встречающихся в этом...

Наверх