Question

1.Найти количество натуральных чисел, не превышающих 100 и кратных 5. 2.Создать массив А из 10 элементов, принадлежащих промежутку (-50;50). Вывести полученный массив на экран. Подсчитать сумму положительных и количество отрицательных элементов массива.Все с помощью Паскаля))

Answer 1

1.
Program Yolo;
Uses Crt;
Var x, count, amount, n: integer;
Begin 
ClrScr; 
Amount:=0; Count:=0; 
Writeln('Введите кол-во чисел необходимых ввести.'); 
Readln(n); 
While Amount<n do 
 Begin   
  Inc(Amount);   
  Writeln('Введите число.');   
  Readln(x);   
  If (x<=100) and (x mod 5=0) then
    Inc(Count);
 End;
ClrScr;
If Count>0 then Writeln('Количество чисел, кратных 5 и не больших 100: ', Count)
  Else Writeln('Среди введёных чисел не было кратных 5 и не больших 100.');
 Readln;
End.

2.
Program Yolo;
Uses Crt;
Const N=10;
Var Mass: Array [1..N] of integer;
      i, SummPosit, AmountNegat: byte;
 Begin
 ClrScr;
 SummPosit:=0;
 AmountNegat:=0;
 Writeln('Массив чисел из диапозона [-50; 50]: ');
 For i:=1 to N do
  Begin
   Mass[i]:=Random(101)-50;
   Write(Mass[i], ' ');
   If Mass[i]>0 then Inc(SummPosit, Mass[i])
    Else If Mass[i]<0 then Inc(AmountNegat);
  End; Writeln; If SummPosit>0 then
 Writeln('Сумма положительных элементов массива: ', SummPosit)
  Else Writeln('В массиве нету положительных элементов.');
 If AmountNegat>0 then
 Writeln('Количество отрицательных элементов массива: ', AmountNegat)   Else Writeln('В массиве нету отрицательных элементов.');
 Readln;End.

Answer 2

1. Для решения данной задачи можно воспользоваться арифметической прогрессией. Последовательность натуральных чисел, кратных 5, образует арифметическую прогрессию со знаменателем d = 5 и первым членом a1 = 5. Так как последнее число, не превышающее 100 и кратное 5, равно 100, то последний член последовательности равен an = 100. Тогда количество членов прогрессии можно найти по формуле:

n = (an - a1) / d + 1 = (100 - 5) / 5 + 1 = 20.

Ответ: 20.

2. В Паскале можно решить данную задачу следующим образом:

program array_example; var A: array[1..10] of integer; i, positive_sum, negative_count: integer; begin randomize; // инициализация генератора случайных чисел // заполнение массива случайными числами от -50 до 49 for i := 1 to 10 do A[i] := random(100) - 50; // вывод массива на экран writeln('Массив A:'); for i := 1 to 10 do write(A[i], ' '); writeln; // подсчет суммы положительных и количества отрицательных элементов positive_sum := 0; negative_count := 0; for i := 1 to 10 do if A[i] > 0 then positive_sum := positive_sum + A[i] else if A[i] < 0 then negative_count := negative_count + 1; // вывод результатов на экран writeln('Сумма положительных элементов: ', positive_sum); writeln('Количество отрицательных элементов: ', negative_count); end.

Пример вывода программы:

Массив A: 11 -21 -33 -47 19 -48 -7 34 -44 -44 Сумма положительных элементов: 64 Количество отрицательных элементов: 7