Program Zadacha; Const n = 10; Var a: Array [1..n] of Integer; B, c, i, j: Integer; d, e: Boolean; Begin WriteLn('Введите ', n, ' целых чисел через пробел и нажмите Enter'); For i := 1 To n Do Read(a[i]); Write('B = '); ReadLn(B); c := 0; For i := 1 To n Do If a[i] < 0 Then c := c + 1; WriteLn('Количество отрицательных элементов массива равно ', c); d := False; For i := 1 To n Do Begin c := a[i]; For j := i + 1 To n Do If c = a[j] Then d := True; End; If d = True Then WriteLn('В массиве есть одинаковые элементы') Else WriteLn('В массиве нет одинаковых элементов'); e := False; For i := 1 To n Do If a[i] = B Then e := True; If e = True Then WriteLn('В массиве есть элемент, равный ', B) Else WriteLn('В массиве нет элемента, равного ', B); ReadLn; End.
Program Sum; Var a, b: Integer; Begin Write('a = '); ReadLn(a); Write('b = '); ReadLn(b); WriteLn('Сумма a и b равна ', a + b); ReadLn; End.
Program SumRow; Const min = 5; max = 28; Var a, i: Integer; Begin a := 0; For i := min To max Do a := a + i; WriteLn('Сумма ряда равна ', a); ReadLn; End.
Program Digit; Var a, b: LongInt; c, d, i: Integer; Begin Write('a = '); ReadLn(a); b := 1; c := 0; While a Div b <> 0 Do Begin c := c + 1; b := b * 10; End; While a > 0 Do Begin d := d + (a Mod 10); a := a Div 10; End; WriteLn('Количество цифр в числе равно ', c); WriteLn('Сумма цифр числа равна ', d); ReadLn; End.
Program Zadacha;
Const n = 10;
Var a: Array [1..n] of Integer;
B, c, i, j: Integer;
d, e: Boolean;
Begin
WriteLn('Введите ', n, ' целых чисел через пробел и нажмите Enter');
For i := 1 To n Do
Read(a[i]);
Write('B = ');
ReadLn(B);
c := 0;
For i := 1 To n Do
If a[i] < 0 Then
c := c + 1;
WriteLn('Количество отрицательных элементов массива равно ', c);
d := False;
For i := 1 To n Do
Begin
c := a[i];
For j := i + 1 To n Do
If c = a[j] Then
d := True;
End;
If d = True Then
WriteLn('В массиве есть одинаковые элементы')
Else
WriteLn('В массиве нет одинаковых элементов');
e := False;
For i := 1 To n Do
If a[i] = B Then
e := True;
If e = True Then
WriteLn('В массиве есть элемент, равный ', B)
Else
WriteLn('В массиве нет элемента, равного ', B);
ReadLn;
End.