Форум программистов, компьютерный форум CyberForum.ru

Заполнить одномерный массив из N элементов целыми числами. - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Напишите программу, которая вводит строку с клавиатуры и определяет ее длину http://www.cyberforum.ru/cpp-beginners/thread529048.html
Напишите программу, которая вводит строку с клавиатуры и определяет ее длину. Напечатайте строку в поле с шириной, равной удвоенной длине строки.
C++ Определение регистра букв Здравствуйте, возникла маленькая проблемка. Для её решения нужно определить в каком регистре находится каждая буква слова. И в зависимости от него производить дальнейшие действие. Как разрешить поставленную задачу? http://www.cyberforum.ru/cpp-beginners/thread529037.html
В стек занесена фраза C++
Программеры, помогите исправить ошибку:) Вот задание и программа. /*В стек занесена фраза. Просматривать стек до тех пор, пока не встретися слово на заданную букву. */ #include "stdafx.h" #include <iostream> #include <fstream> #include <conio.h> using namespace std;
C++ Найти максимальный элемент в каждой строке матрицы
написать функцию
C++ Подсчет кол-ва часов... http://www.cyberforum.ru/cpp-beginners/thread529022.html
Добрый день! Помогите решить пожалуйста. Рубежка идет. Очень прошу решите... Задача. Подсчет количества часов, минут и секунд в данном числе суток. Задача. Определить, является ли заданная целочисленная квадратная матрица порядка 9 магическим квадратом, то есть такой, в которой суммы элементов во всех строках и столбцах одинаковы. Добавлено через 44 секунды помогите в трудный час =(
C++ Определить, лежит ли точка А на прямой Определить лежит ли точка а на прямой y=kx+1 Пж помогите у меня контрольная!!! подробнее

Показать сообщение отдельно
Tenned
0 / 0 / 0
Регистрация: 12.03.2012
Сообщений: 32
27.03.2012, 18:55  [ТС]     Заполнить одномерный массив из N элементов целыми числами.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
n,i,j,x,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:4);
end;
writeln;
i:=1;
j:=n;
k:=0;
while i<=j do
if a[i] mod 2=0 then
begin
k:=1;
if (a[j] mod 2=0)and(i<>j) then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
i:=i+1;
j:=j-1;
end
else j:=j-1;
end
else i:=i+1;
writeln('Перестановка четных:');
for i:=1 to n do
begin
if a[i] mod 2= 0 then textcolor(10)
else textcolor(15);
write(a[i]:4);
end;
writeln;
writeln;
if k=0 then write('Четных элементов нет');
readln
end.
 
Текущее время: 23:19. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru