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

пжл решити пример про массив.или памагите - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ заполнить массив по кругу http://www.cyberforum.ru/cpp-beginners/thread42539.html
Нужно заполнить двумерный массив по кругу против часовой стрелки по строкам (последовательностью натуральных чисел), начиная с последнего элемента
C++ Где скачать консолные С++? Где скачать консолные С++? http://www.cyberforum.ru/cpp-beginners/thread42515.html
C++ окошки
Проблема есть небольшая.Я не хнаю как создавать и работать c виндовскими окнами. напишите только с объяснениями.
C++ Возможность передать при помощи определения #define двух численных значений через запятую?
//------------------------------------ примерный вид кода ----------------- // определение дефайном типа #define RECEIVE(first, second) (first*4+second*5) #define A 3,4 void main() { RECEIVE(A); } //-------------------------------------------------------------------
C++ работа с файлами http://www.cyberforum.ru/cpp-beginners/thread42489.html
В каждом слове текста k-ю букву заменить заданным символом. Ес-ли k больше длины слова, корректировку не выполнять Текст берётся из файла. Ка ксделать используя библиотеку fstream знаю, но надо сделать без неё то есть простые fread, fwrite и т.д.). Помогите плиз...
C++ столкновение Ф ребята, я вот хочу написать примитивную игру, типа гонки(так сказать) на С++, но никак не могу реализовать сталкивание(((... Посмотрите код: #include <dos.h> #include <graphics.h> #include <conio.h> #include <iostream.h> #include <math.h> #include <stdio.h> #include <stdlib.h> void main() подробнее

Показать сообщение отдельно
Messenger of G.
Посланник моего господина
108 / 103 / 8
Регистрация: 02.05.2009
Сообщений: 181
30.06.2009, 20:20     пжл решити пример про массив.или памагите
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
var m:array[byte] of integer;
var a,b,n,i,j,mn,s:integer;
begin
readln(n);
for i:=0 to n-1 do read(m[i]);
mn:=m[0];
for i:=0 to n-1 do
  begin
    if mn>abs(m[i]) then mn:=abs(m[i]);
  end;
i:=0;
while(i<n)and(m[i]>=0) do inc(i);
s:=0;
for j:=i+1 to n-1 do
  s:=s+abs(m[j]);
readln(a,b);
for i:=0 to n-1 do
  begin
    if (abs(m[i])>=a)and(abs(m[i])<=b) then
      begin
        for j:=i+1 to n-1 do
          m[j-1]:=m[j];
        dec(n);
      end;
  end;
{далее твои манипуляции, например, вывод. в mn и s первые два задания, из массива удалены элементы}
end.
 
Текущее время: 17:14. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru