Решение задач. День тринадцатый. Series1-10

Приветствуем читателей нашего сайта! Сегодня мы с вами решаем Series1-10. Этот блок подведет огромную жирную черту под темой всех наших уроков. А дальше мы начнем изучать массивы, строки, функции, процедуры и алгоритмы.

Series1-10

Series1°. Даны десять вещественных чисел. Найти их сумму.

Program series1;
var a, summ: real;
    i: integer;
begin
     for i := 1 to 10 do
         begin
              write('Введите число: ');
              readln(a);
              summ := summ + a;
         end;
     writeln('Сумма чисел: ', summ);
end.

Series2. Даны десять вещественных чисел. Найти их произведение.

Program series2;
var a, proizv: real;
    i: integer;
begin
     proizv := 1;
     for i := 1 to 10 do
         begin
              write('Введите число: ');
              readln(a);
              proizv := proizv * a;
         end;
     writeln('Произведение чисел: ', proizv);
end.

Series3. Даны десять вещественных чисел. Найти их среднее арифметическое.

Program series3;
var a, summ: real;
    i, count: integer;
begin
     for i := 1 to 10 do
         begin
              write('Введите число: ');
              readln(a);
              summ := summ + a;
              inc(count);
         end;
     writeln('Среднее арифметическое чисел: ', summ/count);
end.

Series4. Дано целое число N и набор из N вещественных чисел. Вывести сумму и произведение чисел из данного набора.

Program series4;
var a, summ, proizv: real;
    i, n: integer;
begin
     write('Введите N: ');
     readln(n);
     proizv := 1;
     for i := 1 to n do
         begin
              write('Введите число: ');
              readln(a);
              summ := summ + a;
              proizv := proizv * a;
         end;
     writeln('Сумма чисел: ', summ);
     writeln('Произведение чисел: ', proizv);
end.

Series5. Дано целое число N и набор из N положительных вещественных чисел. Вывести в том же порядке целые части всех чисел из данного набора (как вещественные числа с нулевой дробной частью), а также сумму всех целых частей.
Используем функцию int(x), выделяющую целую часть из вещественного числа.

var
  i, N: integer; 
  a, S: real;

begin
  write('N = '); 
  readln(N); 
  S := 0; 
  writeln('Введите ', N, ' вещественных чисел:'); 
  for i := 1 to N do
  begin
    write('Введите вещественное число: ');
    read(a); 
    S := S + int(a);
    writeln('Целая часть - ', int(a)); 
  end;
  write('Сумма целых частей - ', S); 
end.

Series6. Дано целое число N и набор из N положительных вещественных чисел. Вывести в том же порядке дробные части всех чисел из данного набора (как вещественные числа с нулевой целой частью), а также произведение всех дробных частей.

Используем  функцию frac(x), выделяющую дробную часть вещественного числа.

var
  i, N: integer; 
  a, P: real;

begin
  write('N = '); 
  readln(N); 
  P := 1; 
  writeln('Введите ', N, ' вещественных чисел:'); 
  for i := 1 to N do
  begin
    write('Введите вещественное число: ');
    read(a); 
    P := P * Frac(a);
    writeln('Дробная часть - ', Frac(a):3:2); 
    //Два знакоместа для цифр после точки.
  end;
  write('Произведение дробных частей - ', P:3:2); 
end.

Series7. Дано целое число N и набор из N вещественных чисел. Вывести в том же порядке округленные значения всех чисел из данного набора (как целые числа), а также сумму всех округленных значений.
Для округления вещественного числа до ближайшего целого используем функцию round(a), которая результат записывает как целое число.

var
  i, N: integer; 
  a, S: real;

begin
  write('N = '); 
  readln(N); 
  S := 0; 
  writeln('Введите ', N, ' вещественных чисел:'); 
  for i := 1 to N do 
  begin
    write('Введите вещественное число: ');
    read(a); 
    S := S + Round(a);  
    writeln('Округленное значение - ', Round(a))
  end;  
  writeln('Сумма округленных значений - ', S); 
end.

Series8. Дано целое число N и набор из N целых чисел. Вывести в том же порядке все четные числа из данного набора и количество K таких чисел.

var
  i, N, k, a: integer; 

begin
  write('N = '); 
  readln(N); 
  k := 0; 
  writeln('Введите ', N, ' целых чисел:'); 
  for i := 1 to N do 
  begin
    write('Введите целое число: ');
    read(a); 
    if a mod 2 = 0 then 
    begin
    Inc(k);
    writeln('Четное число - ', a);
    end;
  end;  
  writeln('Количество четных чисел - ', k); 
end.

Series9. Дано целое число N и набор из N целых чисел. Вывести в том же порядке номера всех нечетных чисел из данного набора и количество K таких чисел.

var
  i, N, k, a: integer; 

begin
  write('N = '); 
  readln(N); 
  k := 0; 
  writeln('Введите ', N, ' целых чисел:'); 
  for i := 1 to N do 
  begin
    write('Введите целое число: ');
    read(a); 
    if a mod 2 <> 0 then 
    begin
    Inc(k);
    writeln('Нечетное число # ', i);
    end;
  end;  
  writeln('Количество нечетных чисел - ', k); 
end.

Series10. Дано целое число N и набор из N целых чисел. Если в наборе имеются положительные числа, то вывести True; в противном случае вывести False.

Немножко логических переменных.

var
  i, N, a: integer;
  pozitiv: boolean;

begin
  write('N = '); 
  readln(N);  
  pozitiv := false;
  writeln('Введите ', N, ' целых чисел:'); 
  for i := 1 to N do
  begin
    write('Введите целое число: ');
    readln(a);
    if a > 0 then pozitiv := true
  end;  
  writeln(pozitiv); 
end.

На сегодня все! Если у вас возникли какие-либо вопросы, оставляйте их в комментариях.