Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Составить алгоритм, определяющий, которая из точек находится ближе к началу координат https://www.cyberforum.ru/ turbo-pascal/ thread897119.html Даны две точки A(Х1, Y1) и В (Х2, У2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат. Расстояние между двумя точками рассчитывается по формуле AB=\sqrt{{({x}_{2}-{x}_{1})}^{2}+{({y}_{2}-{y}_{1})}^{2}} Заранее спасибо!	Процедуры и функции: Сравнить две строки , введенные пользователем. Turbo Pascal Написать программу которая:  Сравнивает две строки , введенные пользователем.  Составить программу подсчета количества вхождений буквы "m" в заданном тексте.  Сформировать одномерный массив из N элементов, где элементы массива- целые случайные числа в пределах от 1 до 45. Напечатать элементы массива в прямом и обратном порядке. Помогите пожалуйста
Turbo Pascal составить программу и блок-схему: с клавиатуры ввести матрицу А(5Х5) и определить сколько элементов находится на главной побочной диагонали https://www.cyberforum.ru/ turbo-pascal/ thread897069.html составить программу и блок-схему: с клавиатуры ввести матрицу А(5Х5) и определить сколько элементов находится на главной побочной диагонали.	Turbo Pascal Дана строка. Вывести слова, в которых чаще всех встречается буква "а" Дана строка. Вывести слова, в которых чаще всех встречается буква "а". 10 класс, паскаль. Никак не могу понять, как это сделать, помогите пожалуйста! https://www.cyberforum.ru/ turbo-pascal/ thread897062.html
Меньшее из двух чисел заменить половиной их суммы, а большее - их удвоенным произведением Turbo Pascal Даны действительные числа Х и У, не равные друг другу. Меньшее из двух чисел заменить половиной их суммы, а большее их удвоенным произведением	Turbo Pascal Даны два угла треугольника (в градусах). Определить, существует ли такой треугольник, и если да, то определить третий угол (в градусах) Работа в Pascal https://www.cyberforum.ru/ turbo-pascal/ thread897046.html
Turbo Pascal Даны три точки A, В и С. Составить алгоритм, определяющий, наименьшее расстояние между этими точками https://www.cyberforum.ru/ turbo-pascal/ thread897033.html Делать надо в Pascal	Turbo Pascal Программа - попугай Программа - попугай. На экране высвечивается вопрос «Как тебя зовут? Далее вводится имя (например, Маша). На экране должен появиться текст «Меня зовут Маша!» Решить надо в Pascal. Заранее спасибо!!
Turbo Pascal Составить алгоритм, определяющий, которая из точек находится ближе к началу координат Задания в Документ Microsoft Word. Заранее спасибо!! https://www.cyberforum.ru/ turbo-pascal/ thread897028.html	Turbo Pascal Подсчитать количество нулевых среди чисел а, b, с Делать надо в Pascal или Delphi Заранее спасибо!! https://www.cyberforum.ru/ turbo-pascal/ thread897020.html
Найти сумму элементов, находящихся ниже главной диагонали матрицы Turbo Pascal program diagonal; var a:array of integer; n,i,j,s:integer; {'n - размерность матрицы'} begin s:=0; writeln('Введите размерность матрицы'); readln(n); writeln('Введите элементы матрицы'); for i:=1 to n do	Turbo Pascal Вставить после каждой строки содержащей минимальный элемент массива, строку из нулей (Блок-схема) https://www.cyberforum.ru/ turbo-pascal/ thread896831.html Задана целочисленная квадратная матрица b. 1. Вставить после каждой строки содержащей минимальный элемент массива, строку из нулей. 2. Расположить элементы первой строки большие n (число ввести с помощью клавиатуры) по возрастанию. Использовать генератор случайных чисел. uses crt; const nmax=10; var a:array of integer; m,n,i,j,k,p,mn,x:integer; f:boolean;

Ginar

13 / 13 / 21

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

Сообщений: 38

10.06.2013, 10:37

Переписать чётные элементы в другой одномерный массив - Turbo Pascal - Ответ 4698213

10.06.2013, 10:37. Показов 1739. Ответов 1

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

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

Решение

Pascal

Program v;
uses crt;
const n=10;
var a: array [1..n, 1..n] of integer;
b: array [1..100] of integer;
i,j,k,l: integer;
BEGIN
Randomize;
WriteLN('Массив А: ');
For i:=1 to n do begin
For j:=1 to n do begin
a[i,j]:=random(100)-30;
Write(a[i,j]:5);
WRITELN;
WRITELN;
k:=1;
For i:=1 to n do begin
For j:=1 to n do begin
If a[i,j] mod 2=0 then begin b[k]:=a[i,j];
Write(b[k]:5); k:=k+1
end;
end;
end;
WRITELN;
READLN;
END.

Добавлено через 2 минуты

Pascal

Program v;
uses crt;
const n=10;
var a: array [1..n, 1..n] of integer;
b: array [1..10] of integer;
i,j: integer;
BEGIN
Randomize;
WriteLN('Массив А: ');
For i:=1 to n do begin
For j:=1 to n do begin
a[i,j]:=random(100)-30;
Write(a[i,j]:5);
WRITELN;
WRITELN;
For i:=1 to n do begin
b[i]:=a[i,n];
Write(b[i]:5);end;
READLN;
END.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

10.06.2013, 10:37

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

Из двумерного массива переписать четные элементы в одномерный
Помогите пожалуйста, почему-то все элементы одномерного массива принимают значение последнего...

Четные элементы массива переписать в новый одномерный массив
Дан массив C(m,n)(m=3,n=5).Четные элементы этого массива переписать в новый одномерный массив D....

Создать двумерный массив все четные элементы переписать в одномерный массив
создать двумерный массив все четные элементы переписать в одномерный массив

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

	10.06.2013, 10:37

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

10.06.2013, 10:37

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

Переписать в другой массив четные элементы исходного массива
Написать программу, формирующую массив-результат на базе исходного массива 1. Заполнение массива...

Выписать все четные элементы массива и переписать их в другой массив
массив получен, надо выписать все четные числа массива и переписать их в еще один массив благодарю...

Переписать элементы из матрицы в одномерный массив, отсортировать, и переписать элементы в квадратную матрицу
В матрицы C количество столбиков в каждой строке случайно натуральным числом из интервала , но...

С помощью процедуры переписать четные элементы двумерного массива в одномерный
Переписать четные элементы двумерного массива в одномерный. Оформить процедурой. Помогите найти...

Наверх