Создать одномерный массив A состоящий из 15 элементов заполнить с егооп правилу: каждый элемент массиваравен произведению его номера и числа Z вводимого склавиатуры. посчитать сумму элементов больгих 40
var a:array [1..15] of integer; i,z,s:integer; begin write ('Z = ');readln(z); for i:=1 to 15 do begin a:=i*z; if a>40 then s:=s+a; write (a,' '); end; writeln; writeln ('Summa: ',s); readln; end.
