Помогите с задачей, пожалуйста...
Дан массив из 15 элементов, сгенерированных случайным образом(промежуток от -40 до 80). Вывести все элементы массива, четные и оканчивающиеся на 4.

1

Ответы и объяснения

2013-04-16T22:50:16+04:00

const n = 15;
var
  a: array[1..n] of integer;
  i: byte;
begin
  for i := 1 to n do begin
    a[i] := random(121) - 40;
    write(a[i], ' ');
  end;
  writeln;
  for i := 1 to n do
    if(a[i] mod 2 = 0) and (a[i] mod 10 = 4) or (a[i] = 4) or (a[i] = -4) then write(a[i], ' ');
end.