|
|
| Другие темы раздела | |
| Pascal Организовать цикл while,чтобы не было повторений uses Crt; var n,i,j:integer; a,c,b,d:array of integer; begin clrscr; writeln('Vvedite kol-vo elementov a');readln(n); for j:=1 to n do begin a:=random(99);if j mod 5=0 then writeln('a= ',a,' ') else write('a= ',a,' ');end; j:=1; i:=1; {for i:=1 to do begin if c=a then begin write('Vvedite drugoi element!! ','a =');read(a);end; } While a<>c do begin write('Vvedite drugoi... https://www.cyberforum.ru/ pascal/ thread876746.html |
Разработать программу, позволяющую вставить в массив введенное с клавиатуры число без нарушения упорядоченности. Pascal Задан упорядоченный по возрастанию одномерный числовой массив. Разработать программу, позволяющую вставить в этот массив введенное с клавиатуры число без нарушения упорядоченности. |
|
Pascal Файлы: данные о сотрудниках
https://www.cyberforum.ru/ pascal/ thread875441.html Табл. на фото Тип данных: Целые числа Последовательность операций над данными: 1)Ввод с клавиатуры и запись в массив, запись из массива в файл, чтение из файла и вывод на экран 2)Ввод с клавиатуры и запись в файл, чтение из файла и вывод на экран, дополнение файла |
Pascal Реализация кода на паскале: База данных студентов
https://www.cyberforum.ru/ pascal/ thread875169.html #include <iostream> #include <string> using namespace std; void create_matr(string **, int, int); bool search_с_stud(string **, int &, int, string); bool search_g_stud (string **, int, int, string); int main() |
|
Pascal Паскаль-на белом фоне не ставиться чёрный цвет линий У меня Turbo pascal . Почему не получается сделать на белом фоне чёрный цвет кисти? С другими цветами норм ,а если чёрный то видно только белый фон.Вот программа: uses graph; var g,h:integer; begin g:=detect; initgraph(g,h,''); setbkcolor(white); setcolor(black); rectangle(110,100,250,200); readln; |
Pascal Определить количество положительных элементов каждого столбца массива
https://www.cyberforum.ru/ pascal/ thread874943.html Определить количество положительных элементов каждого столбца массива А(4,4) Помогите пожалуйста с задачкой?!.. |
|
Pascal Написать программу по нахождению длины отрезка
https://www.cyberforum.ru/ pascal/ thread874925.html Написать программу Leng(Xa,Ya,Xb,Yb) вещественного типа, находящую длину отрезка AB на плоскости по координатам его концов:|AB|=sqrt((Xa-Xb)^2+(Ya-Yb)^2) |
Вывести на печать исходный массив в виде матрицы и средние арифметические каждой строки матрицы с указанием номера строки Pascal О великие знатоки паскаля, прошу у вас помощи Задача : Ввести двумерный массив 3х3. Вывести на печать исходный массив в виде матрицы и средние арифметические каждой строки с указанием номера строки. |
| Pascal поиск в ширину мне надо написать программу для курсовая работа. думаю ни кто не напишет программу так бесплатно. сможете предлагать источник. https://www.cyberforum.ru/ pascal/ thread874844.html | Pascal Линейный двунаправленный список: добавление нового элемента после элемента, совпадающего с ключом Х задача:Линейный двунаправленный список: добавление нового элемента после элемента, совпадающего с ключом Х; если такого элемента нет, добавить новый элемент в начало списка; удаление максимального элемента. Помогите,пожалуйста. https://www.cyberforum.ru/ pascal/ thread874830.html |
|
составить 2-мерный масив розмером 4х4, и все числа кратные 3-м просумировать. Pascal нужно составить 2-мерный масив розмером 4х4, и все числа кратные 3-м просумировать. я начял делать -не получяется. program Summa_1; uses crt; var A: array of integer; i, j, Summa: integer; begin i := 1; j := 1; writeln('Vvedite elementy matricy:'); |
Pascal непонятный сбой при работе программы здравствуйте , программа при всех значениях переменных выводит : 5675 что делать? помогите пожалуйста код var x1 , y1 , x2 , y2 , x3 , y3 , x4 , y4, z :real; function pramr(x1 , y1 , x2 , y2 , x3 , y3 , x4 , y4:real):real; var b1 , k1 , k2 , b2 , z:real; begin https://www.cyberforum.ru/ pascal/ thread874614.html |
|
0 / 0 / 0
Регистрация: 21.05.2013
Сообщений: 3
|
|
| 0 | |
Найти произведение количества отрицательных элементов и количество положительных элементов массива - Pascal - Ответ 460838724.05.2013, 14:12. Показов 4041. Ответов 1
Метки (Все метки)
Задание: Задан одномерный, целочисленный массив A(n), (n<=40).Найти произведение количества отрицательных элементов и кол-во положительных элементов массива. Затем упорядочить массив методом выбора. Вывести полученный массив и произведение. Вернуться к обсуждению: Найти произведение количества отрицательных элементов и количество положительных элементов массива Pascal
0
|
|
|
|
| 24.05.2013, 14:12 | |
|
Готовые ответы и решения:
1
|
| 24.05.2013, 14:12 | |
|
Помогаю со студенческими работами здесь
0
Найти сумму отрицательных и произведение положительных элементов массива Найти сумму положительных и произведение отрицательных элементов массива
|