Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Найти номера строк матрицы, содержащие наибольшее количество нулей https://www.cyberforum.ru/ pascal/ thread594781.html Найти номера строк матрицы, содержащие наибольшее количество нулей. Использовать Procedure. Важно, чтобы процедура передала через список параметров номера строк матрицы, а уже сама программа вывела...	Pascal Алгоритм стыковки команд Задание таково - вывести( и сохранять после каждого тура) таблицу результатов Футбольного чемпионата. Резулттаты матчей вводятся с клавиатуры. То есть по результатам матчей отсортрировать и вывести...
Pascal Перевести с С на Паскаль https://www.cyberforum.ru/ pascal/ thread594761.html #include <stdio.h> #define N 4 void swap(int a, int b) { int t; t=a; a=*b;	Pascal Протабулировать функцию. Найти первое значение функции больше а 2. Протабулировать функцию y={x}^{2}+2x-8.. Найти первое значение функции больше {a}^{}. Помогите, пожалуйста. Кто понимает.:-\| кто-нибудь знает? https://www.cyberforum.ru/ pascal/ thread594710.html
Pascal Дана последовательность. Найти сумму чисел последовательности до первого положительного 3. Дана последовательность n*3-{8}^{2}, где n меняется от 1 до 10. Найти сумму чисел последовательности до первого положительного. Элементы и номера последовательности вывести в табличном виде. ...	Pascal Посчитать количество цифр в числе через оператор for https://www.cyberforum.ru/ pascal/ thread594661.html Задача самая простая - сколько цифр в натуральном числе, вводимом с клавиатуры. Но вот оператор, которым необходимо это найти для меня как дремучий лес. Да и на форуме я такого решения что-то не нашел
Pascal Задачи по теме "Записи" https://www.cyberforum.ru/ pascal/ thread594495.html Народ выручай!! Нужно написать программы. Задачки такие по Записям!! 1.Создать программу ,в которой осуществляется проверка,принадлежат ли два адреса одному городу и одной улице.Использовать...	Pascal Сформировать и вывести на экран заданный двумерный массив (для заполнения массива использовать формулу) Написать программу и составить блок-схему и для обработки двумерного массива. Вариант условия задачи выбирается в соответствии с номером в журнале группы! Условие задачи: Сформировать и вывести...
Pascal Дан двумерный массив А размерностью элементы массива – случайные целые числа из диапазона (-30.30). N задается пользователем и может быть равно Условие задачи: Дан двумерный массив А размерностью NхN, элементы массива – случайные целые числа из диапазона (-30..30). N задается пользователем и может быть равно значению от 5 до 9 включительно.... https://www.cyberforum.ru/ pascal/ thread594456.html	Pascal С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Найти номер первого четного числа последовательности чисел. https://www.cyberforum.ru/ pascal/ thread594445.html Решить задачу 3 способами: 1. Используя метки и оператор goto (не используя никакой цикл) 2. Используя цикл (repeat или while) 3. Используя массив Вывести на экран условие задачи. Оформить...
Pascal Пусть даны три числа. Если они могут быть вершинами треугольника, определите его вид (разносторонний, равнобедренный, равносторонний) в TP. Пусть даны три числа. Если они могут быть вершинами треугольника, определите его вид (разносторонний, равнобедренный, равносторонний). Вычислите длины его высот и выведите их в порядке убывания.	Pascal Плотность покоящегося тела равна ро0. Какой будет его плотность в системе отсчета, движущейся со скоростью 0.80 с Плотность покоящегося тела равна РО НУЛЕВОЕ .Какой будет его плотность в системе отсчета , движущейся со скоростью 0.80 с. https://www.cyberforum.ru/ pascal/ thread594124.html

vladoscom93

26 / 26 / 8

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

Сообщений: 242

03.06.2012, 18:53

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

03.06.2012, 18:53. Показов 5200. Ответов 1

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

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

Решение

Pascal

var a,b:array[1..100] of integer;
  i,n1,n:integer;
begin
  n1:=0;
  randomize;
  write('Введите размер массива: ');
  readln(n);
  for i:=1 to n do
    a[i]:=random(10);
  for i:=1 to n do
    if (a[i] mod 2)=0 then
      begin
        inc(n1);
        b[n1]:=a[i];
      end;
  write('Искомый массив: ');
  for i:=1 to n do
    write(a[i],' ');
  writeln;
  write('Результат: ');
  for i:=1 to n1 do
    write(b[i],' ');
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

03.06.2012, 18:53

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

Дан массив целых чисел а(12). Переписать в массив х четные, а в массив у нечетные элементы массива а
Помогите пожалуйста решить эту задачу. Массив a выводит на печать. Я пишу a mod 2 = 0 , а он мне 41...

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

Дан массив целых чисел. Вывести все четные элементы массива, стоящие на нечетных местах
Не могу понять как это сделать :(

Записать все четные по значению элементы массива а в массив b
помогите решить задачи! 1)дан массив а из к целых положительных элементов. записать все четные по...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

03.06.2012, 18:53

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

Дан одномерный массив А, состоящий из N элементов. Перенести в начало массива все четные элементы, а в конец массива - все нечетные
Помогите, пожалуйста. >>"Дан одномерный массив А, состоящий из N элементов. Сколько значений...

Дан массив целых чисел. Напечатать все четные элементы
Использование условий для изменения элементов массива и вывода их на экран 6.3) Дан массив целых...

Дан массив целых чисел из 10 элементов.Все элементы кратные 10 заменить 0;Все нечетные элементы удвоить, а четные уменьшить на 2;
Дан массив целых чисел из 50 элементов. Все элементы кратные 10 заменить 0; Все нечетные...

Наверх