Дано некоторое число k. Указать количество элементов массива, превышающих k. массив из 10 чисел

1

Ответы и объяснения

2013-11-09T15:26:17+04:00
Program Task;
Var a: Array [1..10] of Integer;
k, c, i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
a[i] := Random(10);
WriteLn('Массив:');
For i := 1 To 10 Do
Write(a[i], ' ');
WriteLn;
Write('k = ');
ReadLn(k);
For i := 1 To 10 Do
If a[i] > k Then
c := c + 1;
WriteLn('Количество элементов: ', c);
ReadLn;
End.