Решение задач по программированию


Меню

Ссылки

Поиск

Опрос
Как Вы оцените свои знания программирования?
Отлично знаю
Знаю хорошо
Плохо знаю
Знания отсутствуют

Всего голосов: 481

Статистика
21.10.2014 07:39
Сайт в сети:2930 дней
Просмотров:29613
Уникальных:4646
Рекорд:14
На сайте:Вы одни

Решение задач по программированию / Учебник Pascal / Решения на Pascal

Задачи на массивы

Задача 1
Дан массив A, состоящий из 100 натуральных чисел, заполненный случайным образом (каждый элемент находится в промежутка от 1 до 1000).
Отсортировать данный массив по неубыванию и вывести на экран.

Вариант решения
Code (Pascal):
const n = 100;

var A: array[1..n] of Word;
    i, j, tmp: Integer;

begin
  Randomize;
  for i := 1 to n do
    A[i] := Random (1000) + 1;
  for i := 1 to n - 1 do
    for j := n downto 2 do
      if A[j] < A[j-1] then
      begin
        tmp := A[j];
        A[j] := A[j-1];
        a[j-1] := tmp;
      end; {if}
  for i := 1 to n do
    Write (A[i]:2);
end.


Задача 2
Дан массив A, состоящий из 10 целых чисел.
Вывести все элементы, значение которых превосходит среднего арифметического элементов массива.

Пример
A: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
Результат: 6, 7, 8, 9, 10

Вариант решения
Code (Pascal):
const n = 10;

var A: array[1..n] of Integer;
    i, Sum: Integer;

begin
  Sum := 0;
  for i := 1 to n do
  begin
    Write ('A[', i, '] = ');
    ReadLn (A[i]);
    Inc (Sum, A[i]);
  end; {for}
  WriteLn;
  for i := 1 to n do
    if A[i] > Sum div n then WriteLn (A[i]);
end.

Назад Далее


Заказать решение задачи
Access denied for user: 'famicon7@%' to database 'famicon7'
insert into cms_counter (ip,reftime,url,agent,cnt) values ('54.91.9.248',1413862792,'http://famicon.h17.ru/index.php?art=11','CCBot/2.0 (http://commoncrawl.org/faq/)',1)
X