Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Удалите из матрицы первую строку с максимальным элементом Удалите из массива А(n,m) первую строку с максимальным элементом (считается, что в массиве несколько максимальных элементов). https://www.cyberforum.ru/ pascalabc/ thread847510.html	Запишите в файл 2 название команды, количество решенных задач и общее времени, потраченное на решение всех задач Pascal ABC Подскажите как доделать задачу. В файле 1 хранятся данные о названиях команды, номере решенной задачи, времени, потраченном на решение. Запишите в файл 2 название команды, количество решенных задач и общее времени, потраченное на решение всех задач. Ниже приведена программа, которая создает файл с данными по условию задачи. Не знаю как создать второй файл используя данные первого файла. uses...
Pascal ABC Азбука Морзе Помогите создать программу,вот задание,сам примерно чтото сделал, но получается лажа,выручайте,вот задание: Телеграфный код азбуки Морзе (точка - короткий сигнал, тире - длинный сигнал) - известный пример двоичного алфавита. Закодировать в символах этого алфавита заглавные русские буквы. https://www.cyberforum.ru/ pascalabc/ thread847488.html	Pascal ABC Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими) Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Преобразовать каждое слово в строке, удалив из него все последующие1\|предыдущие2 вхождения первой1\|последней2 буквы этого слова (количество пробелов между словами не изменять). Помогите пожалуйста... https://www.cyberforum.ru/ pascalabc/ thread847450.html
Вычислить значение выражения с учетом области допустимых значений. Pascal ABC Вот программа которую решаю program MAX; var a,b,c,d,y,e,f,x: real; begin readln(x); a:=exp(eln(x+1))+sin(x)/cos(x); b:=exp(yln(ABS(x))); c:=sin(x)+exp(e*ln(x+y)); if a>0 then	Pascal ABC Из двух стеков равной длины с вещественными числами создать один стек с квадратами значений элементов исходных стеков Здравствуйте! Помогите пожалуйста переделать эту программу так, что бы стеки брались из двух файлов, и формировался третий стек и выводился на экран Вот как звучит само задание: Из двух стеков равной длины с вещественными числами создать один стек с квадратами значений элементов исходных стеков, изменив связи между элементами (не выделяя новую память) и изменив их значения. При создании нового... https://www.cyberforum.ru/ pascalabc/ thread847354.html
Pascal ABC програма тестирования знаний Прошу помочь с паскалем. Задание:создать програму тестирования знаний https://www.cyberforum.ru/ pascalabc/ thread847342.html	Pascal ABC Задача по графике в PascalABC Суть задачи: глаз движется по экрану и моргает, и нада глазу дорисовать ресницы... Вот сам код: Но сама проблема в том, что ресницы надо дорисовать не линиями, а дугами... program eye; uses graphABC; var xx: integer;
Pascal ABC Из целочисленного массива А (n, m) сформировать массив В (n) https://www.cyberforum.ru/ pascalabc/ thread847331.html Задачи «Обработка элементов двумерных массивов» 1. Из целочисленного массива А(n,m) сформировать массив В(n), в котором элемент b равен количеству положительных элементов i-й строки массива А(n,m). 2. В целочисленном массиве А(n,m) найдите, сколько раз встречается максимальный и минимальный элемент. 3. Удалите из массива А(n,m) первую строку, в которой последний элемент – нечётный. 4. Из...	Pascal ABC Хочу разобратся Дали задачу: вставить вместо пробелов знаки +,-,*,/ впримере: ((((1 2) 3) 4) 5) 6 так что бы было равенство ((((1 2) 3) 4) 5) 6=35. Можете пожалуйста подсказать как мне сравнивать типы данных(подстановку знаков делал через тип данных стринг). Но нельзя сравнивать стринг и интеджер. помогите пожалуйста https://www.cyberforum.ru/ pascalabc/ thread847328.html
Pascal ABC Составить программу Программа состоит вся из 3 частей, и их нужно соединить в одну. Сами части: 1) program masiv4ikl; uses crt; const m=10; var i,j,n:integer; K:array of real; S:real;	Pascal ABC Программа вычисления разности наибольшего и наименьшего элементов массива Здравствуйте, помогите пожалуйста с задачей составить программу вычисления разности наибольшего и наименьшего элементов массива A(N,M) https://www.cyberforum.ru/ pascalabc/ thread847208.html

Тамила

753 / 546 / 211

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

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

25.04.2013, 09:10

Из одномерного массива удалить элементы кратные 5 - Pascal ABC - Ответ 4467748

25.04.2013, 09:10. Показов 5996. Ответов 4

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

Ответ

Pascal

uses crt;
var
   a:array[1..1000] of integer;
   i,n,j,kol:integer;
begin
   clrscr;
   randomize;
   write('n=');
   read(n);
   for i:=1 to n do
    begin
       a[i]:=random(100);
       write(a[i],'  ');
    end;
   writeln;
   kol:=0;
   for i:=1 to n do
    begin
       if a[i] mod 5 = 0 then
        begin
           for j:=i to n-1 do
            a[j]:=a[j+1];
           kol:=kol+1;
        end;
    end;
   for i:=1 to n-kol do
    write(a[i],'  ');
   readkey;
end.

Вернуться к обсуждению:
Из одномерного массива удалить элементы кратные 5 Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

25.04.2013, 09:10

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

Удалить элементы массива кратные 7
Помогите с одномерным массивом, пожалуйста.

Удалить из массива все элементы, кратные 7
При решении задач применять процедуры и функции. Дан массив целых чисел (п=20), заполненный...

Удалить из массива все элементы, кратные 7 и принадлежащие промежутку
дан массив целых чисел (n=20) заполненный случайным образом числами из промежутка . 1.Удалить из...

Удалить из одномерного массива все элементы, состоящие из одинаковых цифр
Удалить из одномерного массива все элементы, состоящие из одинаковых цифр. Помогите пожалуйста...

	25.04.2013, 09:10

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

25.04.2013, 09:10

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

Удалить из одномерного числового массива размерности n все отрицательные элементы
Задачи на одномерные массивы 3 Удалить из одномерного числового массива размерности n все...

Удалить минимальный элемент массива и все элементы, кратные 5.
Задание. Выполнить действия над одномерным массивом. Удалить минимальный элемент массива и все...

Удалить из матрицы все элементы, не кратные семи, но кратные трем
Заданная матрица целых чисел размером (M, N). Удалить из матрицы все элементы, не кратные семи,...

Удалить из одномерного массива все элементы расположенные между максимальным и минимальным элементами массива
Удалить из одномерного массива все элементы расположенные между максимальным и минимальным...

Наверх