Задан массив из 9 целых чисел. вывести на экран элементы ,которые больше 15.

Program mas; var a: array[1..100] of integer;         i, n: integer; begin randomize;           writeln('введите размерность массива',n);           readln(n); for i: =1 to n do a[i]: =random(45)-1;   readln; for i: =1 to n do begin if a[i]> 15 then             write(' ',a[i]); end; readln; end.

1 simvol zanimaet 1 bait(tak kak imeem tekst);

tekst shpargalki sostavliaet 50*50=2500 simvolov-2500 bait.

da + eshe 0,3*2500=750.

vsego 2500+750=3250 bait.

qbasic

screen 7

input x

input y

input c

s=x+y/2*c

print "x+y/2*c="; s

end