Форум программистов, компьютерный форум, киберфорум
Наши страницы

После последнего столбца, содержащего только отрицательные элементы, вставить столбец из нулей. - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Вывести на экран слово «год», «года» или «лет» в зависимости от введенного возраста http://www.cyberforum.ru/cpp-beginners/thread388660.html
Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом «год», «года» или «лет»
C++ Помогите пожалуйста решить задачу с файлами на С++ Написать программу для подсчета количества слов в текстовом файле. Также программа должна вывести инф-ю о том, сколько раз в файле встречается каждое слово. Входящие данные: текстовый файл.... http://www.cyberforum.ru/cpp-beginners/thread388649.html
Онлайн компилятор! C++
Народ подскажите плиз онлайн компилятор c++
C++ перевод чисел из систем счисления
Составить программу перевода чисел из десятичной системы счисления в систему с основанием: 12; 31; 3; и программу обратного перевода
C++ Из первой заданной строки удалить каждый символ, принадлежащий второй http://www.cyberforum.ru/cpp-beginners/thread388589.html
Составить процедуру в результате которой из первой заданной строки будет удалятся каждый символ принадлежащий и второй заданной строке
C++ Гармонический анализ массива Ребята помогите сделать программу на Си. Задание Разработать программу, осуществляющую гармонический анализ входного одномерного массива вещественных чисел. подробнее

Показать сообщение отдельно
Semena
1 / 1 / 0
Регистрация: 08.07.2012
Сообщений: 31
10.07.2012, 14:52
Delphi
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
var
j,i,M,N,K:integer;
a: array [1..11,1..11] of real;
bol:boolean;
begin
// Ââîä Г¤Г*Г*Г*ûõ 
writeln('Ââåäèòå Г·ГЁГ±Г«Г* M (M<=10) ГЁ N (N<=10)');
read(M); readln(N);
writeln('Ââåäèòå ГЇГ® ',N,' ýëåìåГ*òîâ ');
for i:=1 to M do begin
write(i,' ñòðîêè : ');
for j:=1 to N do read(a[i,j]);
end;
K:=0;
// ГђГҐГёГҐГ*ГЁГҐ 
bol:=true;
for i:=1 to N do begin
bol:=true;
for j:=1 to M do begin
if a[j,i]>0 then bol:=false;
end;
if bol then k:=i;
end;
if k>0 then begin
for i:=N+1 downto K+1 do begin
for j:=1 to M do begin
a[j,i]:=a[j,i-1];
end; end;
for j:=1 to M do begin
a[j,K+1]:=0;
end;
inc(N);
end;
// îòâåò 
writeln;
writeln('ГЋГІГўГҐГІ');
for i:=1 to M do begin
writeln;
for j:=1 to N do write(a[i,j],' ');
end;
end.
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.