Меню сайта

Задача №1

Дан одномерный массив А[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]&gt-7

then

begin

a[i]:=7-

count:=count+1-

end-

Write(a[i]:4)-

end-

Writeln-

Writeln(‘Кол: ‘,count)-

readkey-

END.

Категория: Массивы | Дата: 23.12.12

Меню раздела
Блок