Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Составить программу построения n вложенных разноцветных ромбов https://www.cyberforum.ru/ turbo-pascal/ thread559267.html
Составить программу построения n вложенных разноцветных ромбов.
Паскаль файлы Turbo Pascal
Создать текстовый файл при вводе с клавиатуры таких данных: фирма, марка автомобиля, цена. Определить максимальную цену автомобиля, производится каждой фирмой и дописать это значение в конец строки ...
Будте добры помогите оч над)Создать и заполнить текстовой файл f. Получить файл g, образованный из файла f с исключением всех слов, встречающихся Turbo Pascal
Создать и заполнить текстовой файл f. Получить файл g, образованный из файла f с исключением всех слов, встречающихся больше одного раза, в исходном файле.
Turbo Pascal Последовательность слов. Напечатать те слова, перед которыми находятся только меньшие слова Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прописных латинских букв; между соседними словами-запятая, за последним словом-точка. Напечатать те слова, перед... https://www.cyberforum.ru/ turbo-pascal/ thread559248.html
Turbo Pascal Определить периметр треугольника, заданного в пространстве своими вершинами. https://www.cyberforum.ru/ turbo-pascal/ thread559243.html
Определить периметр треугольника, заданного в пространстве своими вершинами.(Не могу решить )
Turbo Pascal Типизированные файлы, записи.
Задача по типизованих файлах. 1) Заданный файл, содержащий номера работников учреждения. Указывается фамилия работника, его инициалы и номер телефона. Ввести фамилию и имя с терминала. Отыскать...
блок схемы Turbo Pascal
кто нибудь сделайте плиз блок схемы №2 program trapeziy; var h,ug,a,b,x,s,p:real; begin write('Ввидете а ');readln(a); write('Введите b ');readln(b); write('Введите угол ');readln (ug);...
Turbo Pascal Динамические структуры даных построить однотипный список. Составить процедуру: получение n-го узла списка просмотра его роллов и внесения изменений, реализовать очередь. https://www.cyberforum.ru/ turbo-pascal/ thread559206.html
Turbo Pascal Сортировка матриц https://www.cyberforum.ru/ turbo-pascal/ thread559202.html
Помогите разобраться с программой, никак не пойму что она делает. задание:Описать, разработать и запрограммировать два алгоритма сортировки по указанному методу: первый алгоритм - сортировка методом...
Turbo Pascal Двумерный массив. Вычислить минимальный элемент и его индексы Помогите пожалуйста решить хотя бы одну из задач: 1.Составьте программу вычисления минимального элемента и его индексов матрицы A(M;N) 2.Составьте программу вычисления суммы элементов по строкам... https://www.cyberforum.ru/ turbo-pascal/ thread559198.html
141 / 129 / 113
Регистрация: 08.04.2012
Сообщений: 245
26.04.2012, 16:05 0

Вывести на экран монитора исходный одномерный массив в виде строки чисел

26.04.2012, 16:05. Просмотров 1185. Ответов 4
Метки (Все метки)

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

Решение


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Uses CRT;
Const n=10;
var a:array[1..n] of integer;
    i,q:integer;
begin
     ClrScr;
     for i:=1 to n do
     begin
          a[i]:=Random(21);
          write(' a[',i,']=',a[i]);
     end;
for i:=1 to n do
if (a[i] mod 2=0) then inc(q);
writeln('');
writeln('Â ìàññèâå ',q,' ýëåìåíòîâ êðàòíûõ 2-ì.');
end.


Вернуться к обсуждению:
Вывести на экран монитора исходный одномерный массив в виде строки чисел
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.04.2012, 16:05

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Вывести одномерный массив на экран в виде столбцов по 5 элементов
Дан одномерный массив из n элементов вывести его на экран в виде столбцов по 5 элементов. 1 6 2 7...

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

Дан одномерный массив из n чисел. Вывести на экран, отсортирован ли массив по возрастанию
1. Дан одномерный массив из n чисел. Вывести на экран, отсортирован ли массив по возрастанию. 2....

Вывести массив на экран в виде таблицы, в конце каждой строки надо вывести минимальный элемент
Ребят , как вывести маленький элемент , что изменить в коде знак ">" меняю на "<" - не выходит. ...

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