Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Анимация в модуле crt. Движение буквы https://www.cyberforum.ru/ turbo-pascal/ thread594706.html
Мне нужно в паскаль написать программу что у меня на экране выходило буква А и проходила шагов5-10 вот там в программе что-то gotoXT(4,2); ? Помогите пожалуйста , Заранее спасибо
Изменение значения элемента двумерного массива на сумму окружающих элементов Turbo Pascal
Составьте программу, меняющую значение элемента двумерного массива A(N,N) на сумму окружающих его элементов
Turbo Pascal Составить программу вычисления функции
Составить программу вычисления функции y=квадратный корень ex-5-10 с ограниченой областью определения в произвольной точке. Заранее спасибо
Turbo Pascal Решение задачи методом итераций Доброго времени суток, нужна помощь в решении задачи)) Программа должна выполнять следующие функции: 1. Запрос основных параметров поиска решения у пользователя: границы интервала, точность... https://www.cyberforum.ru/ turbo-pascal/ thread594675.html
Turbo Pascal Дано натуральное число. Определить его максимальную и минимальную цифру https://www.cyberforum.ru/ turbo-pascal/ thread594646.html
2. Дано натуральное число. Определить его максимальную цифру. Определить его минимальную цифру.
Условный оператор. Дано двузначное число. Определить, кратна ли трем сумма его цифр Turbo Pascal
1. Дано двузначное число. Определить: -кратна ли трем сумма его цифр; -кратна ли сумма его цифр числу а (число a вводит пользователь)
Turbo Pascal Целочисленная арифметика. Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти полученное число
1. Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти полученное число.
Turbo Pascal Множества. Подсчитать количество гласных и согласных русских букв в строке 4. Дана строка. Подсчитать количество гласных и согласных русских букв. При решении задачи обязательно использовать множественный тип. https://www.cyberforum.ru/ turbo-pascal/ thread594621.html
Turbo Pascal Найти произведение элементов столбца матрицы, в котором расположен наибольший элемент https://www.cyberforum.ru/ turbo-pascal/ thread594620.html
2.Задана квадратная матрица А размером NÍ (N<=10), состоящая из N действительных элементов. Найти произведение элементов столбца, в котором расположен наибольший элемент.
Turbo Pascal Дан текст программы на Паскале с комментариями, заключенными в фигурные скобки {}. Удалить из текста комментарии 3. Дан текст программы на Паскале с комментариями заключенными в фигурные скобки {}. Удалить из текста комментарии. https://www.cyberforum.ru/ turbo-pascal/ thread594619.html
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,021
Записей в блоге: 1
03.06.2012, 12:53 0

Записать все четные по значению элементы массива а в массив b

03.06.2012, 12:53. Показов 1927. Ответов 1
Метки (Все метки)

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

Решение

Цитата Сообщение от azazellka666 Посмотреть сообщение
1)дан массив а из к целых положительных элементов. записать все четные по значению элементы массива а в массив b.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var A:array[1..100] of integer;
    B:array[1..100] of integer;
    i,j,k:integer;
Begin
    write('Введите кол-во элементов массива: ');readln(k);
    writeln('Массив A');
    j:=0;
    For i:=1 to k do
     Begin
      A[i]:=Random(50);
      write(A[i]:3);
      if A[i] mod 2 = 0 then
       Begin
        inc(j);
        B[j]:=A[i];
       End;
     End;
    writeln;
    writeln('Массив B');
    For i:=1 to j do
     write(B[i]:3);
End.
Добавлено через 9 минут
Цитата Сообщение от azazellka666 Посмотреть сообщение
2)определить число, состоящее из 3х цифр, кратен 2,5,7, и сумма цифр числа равна 12.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Var i,s:integer;
    a:boolean;
Begin
    i:=99;a:=true;
    While (i<999)and(a) do
     Begin
      inc(i);
      s:=(i div 100)+((i div 10) mod 10)+(i mod 10);
      if (i mod 2 = 0)and(i mod 5 = 0)and(i mod 7 = 0)and(s=12) then a:=false;
     End;
    if not a then writeln('Такое число: ',i) else writeln('Нет такого числа');
End.
Добавлено через 17 минут
Цитата Сообщение от azazellka666 Посмотреть сообщение
3)генератор случайных чисел выдает n четырехзначных чисел, вывести на экран лишь те, у которых совпадают первая и последняя цифры.
Pascal
1
2
3
4
5
6
7
8
9
Var i,n,m:integer;
Begin
    write('Введите кол-во чисел для генерации: ');readln(n);
    For i:=1 to n do
     Begin
      m:=Random(9000)+1000;
      if (m div 1000)=(m mod 10) then write(m:6);
     End;
End.
Задавай большие n так как при маленьких n не находит такие числа)

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

Найти все четные по значению элементы массива
Найти все четные по значению элементы массива из N целых чисел. Вывести на печать значение элементов

Записать в массив Y элементы массива A имеющие четные индексы, а в массив C нечетные
Задание: Выбрать из таблицы функцию в соответствии с вариантом задания. Разработать алгоритм и...

дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы массива а в массив b
дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы...

Записать подряд в массив В элементы массива (а1,а2..а30), имеющие четные индексы
записать подряд в массив В элементы массива(а1,а2..а30)-имеющие четные индексы

__________________
1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.