Даны следующие описания:
type zi=(l,ma,mi,j,v,s,d);
culoare=(galben, verde, albastru, violet);
var i, j, k : integer;
z: zi;
c: culoare;
x: real;
какие из сдедующих выражений являются правильными?
a) i: =12
b) j: =ord(i)
c) x: =ord(z) + 1
d) k: =ord(x)+2
e) c: =i+4
f) c: =verde
g) z: =d
h) c: = pred (galben)
i) x: =succ(z)
j) i: =succ(c)
Для задания 1 или заданий 2,3 оставляем в программе только нужную строку.в соответствии с комментарием.
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
Writeln('k=',a.Where(k->k.IsEven).Count); // для задания 1
Writeln('s=',a.Where(k->k mod 10=2).Sum) // для заданий 2/3
end.
Пример
n= 17
61 32 83 78 47 80 85 64 52 85 30 77 96 81 14 65 67
k=8
s=84