Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

1.
Program Yolo;
Uses Crt;
Var x, count, amount, n: integer;
Begin 
ClrScr; 
Amount:=0; Count:=0; 
Writeln(Введите кол-во чисел необходимых ввести.); 
Readln(n); 
While Amount 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.