Дан одномерный массив А[N], a[1], a[2],…, a[n] — целые. Заменить все большие 7 члены массива числом 7. Найти количество таких членов.
Решение с использованием генератора случайных чисел
Program mas_1-
Uses Crt-
Const n=10-
Var
a:array[1..n] of integer-
i,count:integer-
BEGIN
ClrScr-
count:=0-
Randomize-
for i:=1 to n do
begin
a[i]:=Random(20)-
Write(a[i]:4)-
end-
Writeln-
for i:=1 to n do
begin
if a[i]>-7
then
begin
a[i]:=7-
count:=count+1-
end-
Write(a[i]:4)-
end-
Writeln-
Writeln(‘Кол: ‘,count)-
readkey-
END.
Категория: Массивы |
Дата: 23.12.12