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

Из Turbo Pascal в C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Семафор http://www.cyberforum.ru/cpp-beginners/thread518069.html
Условия задания. Есть 10 компьютеров в лаборатории и постоянный поток студентов. Каждый студент хочет использовать компьютер в течение ограниченного случайного промежутка времени. Реализовать это...
C++ Из Turbo pascal в С++ var st: string; i, count: integer; begin readln(st); for i:=1 to length(st) do if st in then inc(count); writeln(count); end. http://www.cyberforum.ru/cpp-beginners/thread518054.html
Задача на вывод текстового файла C++
Дан текстовый файл, каждая строка которого изображает целое число, дополненное слева и справа несколькими пробелами. Вывести количество этих чисел и их сумму
Задача на текстовый файл C++
Дан текстовый файл. Вывести последнее слово текста наименьшей длины. Словом считать набор символов, не содержащий пробелов и огра-ниченный пробелами или началом/концом строки.
C++ Дан текстовый файл. Удалить из него все пустые строки. http://www.cyberforum.ru/cpp-beginners/thread518040.html
Дан текстовый файл. Удалить из него все пустые строки.
C++ Задача на текст Дано имя файла и целое число N (0 < N < 27). Создать текстовый файл с указанным именем и записать в него N строк: первая строка должна со-держать строчную (то есть маленькую) латинскую букву «a»,... подробнее

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

Из Turbo Pascal в C++ - C++

13.03.2012, 19:33. Просмотров 336. Ответов 1
Метки (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  mas:array[1..100]of Integer;
  A,i,n,sum:Integer;
begin
  write('4islo elementov massiva: ');
  readln(n);
  writeln('Vvedite massiv: ');
  for i:=1 to n do read(mas[i]);
  write('Vvedite 4islo A: ');
  readln(A);
  sum:=0;
  for i:=1 to n do if mas[i]>A then sum:=sum+mas[i];
  writeln('Summa elementov massiva, bolshih ',A,': ',sum);
  readln;
end.
Добавлено через 19 секунд
Найти сумму элементов, больших данного числа А (А вводится с клавиатуры).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru