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

Перепешите пожайлуста на Dev-C++ Срочненько нужно - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Найти в строке те слова, которые начинаются и оканчиваются одной и той же буквой http://www.cyberforum.ru/cpp-beginners/thread747795.html
дана строка. найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой. язык Си++
C++ Генератор случайных чисел (с UI) Я создал простенький генератор случайных чисел с Пользовательским Интерфейсом (GUI). Добавлено через 21 минуту Актуальна :) http://www.cyberforum.ru/cpp-beginners/thread747788.html
C++ Метод Зейделя
#include<iostream> #include<fstream> #include<math.h> using namespace std; int main(){ freopen("inputK.txt", "rt", stdin); freopen("outputK.txt", "wt", stdout); double last=0,s1,s2,eps,err,...
Сапер на Visual C++ C++
Подскажите где можно найти сапер на Visual C++
C++ прога которая содержащий не более 10 строк, в каждой строке не более 80 символов и эти символы вводятся с клавиатуры http://www.cyberforum.ru/cpp-beginners/thread747764.html
здравструйте, помогите написать прогу которая содержащий не более 10 строк, в каждой строке не более 80 символов и эти символы вводятся с клавиатуры.. и нужно использовать string вместо char....
C++ Не правельно находит min float min(xySqrt(ms.x,ms.x,ms.y,ms.y)); for(i=0; i<=k-1; i++) for(j=1; j<=k-1; j++) if( (i!=j) && ((i!=0)&&(j!=1)) ) { if(xySqrt(ms.x,ms.x,ms.y,ms.y) <= min) { min... подробнее

Показать сообщение отдельно
punkreva1
0 / 0 / 0
Регистрация: 28.11.2012
Сообщений: 5

Перепешите пожайлуста на Dev-C++ Срочненько нужно - C++

27.12.2012, 13:31. Просмотров 205. Ответов 0
Метки (Все метки)

Дано натуральное число N и массивы действительных чисел a[1..n] и [1..m]. Найти сумму тех элементов массива a, которых нету в массиве b.

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
var
   n,m,i,j,sum,k:integer;
   a,b:array [1..10000] of integer;
BEGIN
readln(n,m);
for i:=1 to n do
    begin
    a[i]:=random(20);
    write(a[i]:3);
    end;
writeln;
for i:=1 to m do
    begin
    b[i]:=random(20);
    write(b[i]:3);
    end;
sum:=0;
writeln;
for i:=1 to n do
    begin
    k:=0;
    for j:=1 to n do
        begin
        if a[i]=b[j] then inc(k);
        
        end;
    if k=0 then sum:=sum+a[i];
    end;
writeln(sum);
readln;
END.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru